Gruppe
Allgemein
Bereich
Suchen
Thema
Suchbegriff abfragen und Fundzeile markieren
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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