Thema: Text in Blatt suchen

Home

Abbildung - Text in Blatt suchen

Prozedur: cmdSuchen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Text in Blatt suchen
Ablaufbeschreibung:
- Variablendeklaration
- Fundstelle an eine Objektvariable übergeben
- Wenn der Suchbegriff nicht gefunden wurde...
- Negativmeldung
- Sonst...
- Meldung der Fundzeile

Code:


Private Sub cmdSuchen_Click()
   Dim rng As Range
   Set rng = Columns(1).Find( _
      what:=txtSuchbegriff.Text, _
      lookat:=xlPart, _
      LookIn:=xlFormulas)
   If rng Is Nothing Then
      MsgBox "Suchbegriff wurde nicht gefunden!"
   Else
      MsgBox "Suchbegriff wurde in Zeile" & rng.Row & " gefunden!"
   End If
End Sub