habe folgendes Makro, für die Suchfunktion. Ich kann also eingeben und es wird mir angezeigt wo die entsprechende Zeichenkette ist.
Funktioniert auch !
Ich möchte jedoch, wenn der Name gefunden wird in Tabelle das noch weiter gesucht wird in der Tabelle, bis zum Schluß aber WIE ?
Hier mein Makro:
Private Sub CommandButton1_Click()
Dim s As String
Dim zei As String
map = ActiveSheet.Name
On Error GoTo Fehler
s = TextBox1.Text
If Cells.Find(What:=s, LookAt:=xlPart).Activate Then
MsgBox "Sie befinden sich in folgender Mappe: " & Chr(13) & _
" " & map & Chr(13) & Chr(13) & Chr(13) & _
" Suchkriterium in folgender Zelle: " & ActiveCell.Address & " gefunden"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
Else
Fehler:
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", 64, _
"Dezenter Hinweis für " & Application.UserName & ":"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
TextBox1 = ""
End If
Gruß Walter