VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren

Gruppe

Allgemein

Bereich

Suchen

Thema

Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren

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

    


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