Gruppe
Allgemein
Problem
Wie kann ich über InputBox einen Suchbegriff abfragen lassen und dann die Fundzeile selektieren? Wird der Suchbegriff nicht gefunden, soll eine Meldung angezeigt werden.
StandardModule: basMain
Sub Suchen()
Dim rng As Range
Dim sFind As String
sFind = InputBox( _
prompt:="Suchbegriff:", _
Default:="def456")
If sFind = "" Then Exit Sub
Set rng = Columns(1).Find( _
what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rng.Row).Select
End Sub