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