Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchbegriff in Tabelle suchen und Fundzeilen auswählen

Gruppe

Suchen

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