Suchen über Inputbox mit Abbruchfunktion
05.07.2022 12:30:58
Martin
ich wäre über Hilfe bei folgendem Problem sehr dankbar:
Ich habe eine Liste in der ich in den Spalten O, P und Q über eine Msgbox ein Wortstück suchen möchte. Dabei soll automatisch von einem Suchergebnis zum nächsten gesprungen werden. Bsp. Gesuchtes Wortstück: "Kosten" -> Gefunden wird: Kostenschätzung, Kostenerhöhung, Kostenrelevanz, etc.
Zur besseren visuellen Orientierung wäre es super, wenn er die gesamte Zeile, in der der Suchbegriff gefunden wird markiert.
Wenn der gesuchte Begriff gefunden ist soll manuell über einen Abbruchbutton aus der Suchfunktion der Ausstieg möglich sein.
Ich habe hier folgenden hilfreichen Code ('https://www.herber.de/mailing/Suchen_und_weitersuchen.htm) gefunden:
Sub Suchanfrage_Test()
Dim rng As Range
Dim sBegriff As String, sAddress As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="Hallo")
If sBegriff = "" Then Exit Sub
Set rng = Cells.Find( _
What:=sBegriff, _
LookAt:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=ActiveCell)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
Do
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Loop
End Sub
Ich beherrsche VBA leider gar nicht und kopiere mir die Codes zusammen. Über Hilfe wäre ich sehr dankbar!
Schöne Grüße Martin