VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchbegriff abfragen und Fundzeile markieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen