Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Suchbegriff abfragen und Fundzeile markieren
Gruppe
Suchen
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