ich hoffe ich habe noch Glück.
Hab folgendes Makro für meine Suchfunktion, die auch klappt, möchte diese aber
erweitern, das ob weitere mit den gleichen Suchkriterien da sind auch dann
aktiv die Zelle aktiviert wird. Wie gesagt einmal klappt es.
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
'& Space(25) & vbLf & ' weiß noch was ist
MsgBox "Sie befinden sich in folgender Mappe: " & Chr(13) & _
" " & map & Chr(13) & Chr(13) & Chr(13) & _
" Suchkriterium in folgender Zelle: " & ActiveCell.Address(False, False) & _" gefunden"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
'---- ab hier habe ich aus dem Forum "zusammengebastelt" ---------------
Dim gef 'soll für gefunden stehen
Cells.FindNext(after:=gef).Activate
Do
Set gef = Cells.FindNext(after:=rng)
If gef.Address = sAdress Then Exit Sub
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Application.Goto rng, True
Exit Sub
End If
Loop
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
End Sub
Danke im voraus,
gruß Walter