Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren

Gruppe

Suchen

Problem

Wie kann ich in der ausgeblendeten Spalte A durch eine InputBox ermittelte Begriffe suchen und die Fundzeile markieren lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub SuchenUndMarkieren()
   Dim rng As Range
   Dim sBegriff As String
   sBegriff = InputBox( _
      prompt:="Suchbegriff:", _
      Default:="drei")
   If sBegriff = "" Then Exit Sub
   Set rng = Columns(1).Find( _
      what:=sBegriff, lookat:=xlWhole, LookIn:=xlFormulas)
   If rng Is Nothing Then
      Beep
      MsgBox "Suchbegriff wurde nicht gefunden!"
      Exit Sub
   End If
   Rows(rng.Row).Select
End Sub