"Alle" suchen
06.02.2021 14:54:09
Ulrich
ich habe eine Frage in wieweit folgendes möglich ist:
Mit folgendem Code kann ich im Arbeitsblatt nach einer Zeichenkette suchen, der erste gefundene Eintrag wird dann markiert, wenn ich auf weiter klicke geht er zum Nächsten Eintrag der gefunden wurde.
Ist es möglich das mir z.B. in einer Box alle Zellen die die gesuchte Zeichenkette haben angezeigt werden und ich dann durch anklicken dahin springen kann? ähnlich wie bei strg+f (alle suchen)
Gruß Ulli
Sub Suchen()
Dim Suchbegriff As String
Dim Weiter
Suchbegriff = InputBox("Suchbegriff:", "Alternative Suche")
On Error GoTo fehler
Cells.Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
If Weiter = vbYes Then
Cells.FindNext(After:=ActiveCell).Activate
GoTo nochmal
End If
Exit Sub
fehler:
Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
End Sub