Hallo patrick,

so gehts:





      

Sub Suchen()



    Dim suchwert As String

    Dim GesuchteAdresse As String

    suchwert = InputBox("Bitte den zu suchenden Wert eingeben:")

    If suchwert = "" Then Exit Sub

    GesuchteAdresse = AdressevonSuchwert(suchwert)

    MsgBox GesuchteAdresse

End Sub

Function AdressevonSuchwert(S As String) As String



    Dim c As Range

    

    Set c = Range("A:A").Find(what:=S)

    If c Is Nothing Then

       AdressevonSuchwert = "Suchwert nicht gefunden!"

    Else

       AdressevonSuchwert = c.Address(False, False)

    End If



End Function

 



Code eingefügt mit Syntaxhighlighter 3.0

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">

geschrieben von Worti , 29.03.2006, 14:30 Uhr , 13 mal gelesen