title image


Smiley Re: VBA: Nach Inhalt einer Zelle suchen und als Rückgabewert Adresse der Zelle
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: