title image


Smiley Nicht in einer Schleife suchen, sondern mit Excel-Methode "Find"
Hallo Holger,



dieser kurze und einfache Code sollte Deine Anfrage beantworten :

      

Sub suchen()

    suchbegriff = "Eingabe"

    Set Zelle = ActiveSheet.Cells.Find(What:=suchbegriff)

    If Zelle Is Nothing Then

        MsgBox suchbegriff + " nicht gefunden !"

    Else

        MsgBox suchbegriff + " in Zelle " + Zelle.Address + " gefunden !"

    End If

End Sub 



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: