VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchbegriff in Tabelle suchen und Fundzeilen auswählen

Gruppe

Allgemein

Bereich

Suchen

Thema

Suchbegriff in Tabelle suchen und Fundzeilen auswählen

Problem

Wie kann ich einen durch InputBox abzufragenden Suchbegriff in einer Tabelle suchen und alle Fundzeilen auswählen lassen?

Lösung

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




StandardModule: basMain

Sub MultiSelect()
   Dim wks As Worksheet
   Dim rngFind As Range, rngRows As Range
   Dim sFind As String, sSearch As String
   sSearch = InputBox("Suchbegriff:", , "test")
   Set rngFind = Cells.Find(sSearch)
   If rngRows Is Nothing Then
      Set rngRows = rngFind
   End If
   If Not rngFind Is Nothing Then
      sFind = rngFind.Address
      Do
         Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
         Set rngFind = Cells.FindNext(After:=rngFind)
         If rngFind.Address = sFind Then Exit Do
      Loop
   End If
   rngRows.Select
End Sub

    


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