Thema: Fundstellen listen

Home

In der ListBox werden alle Zelladressen der Fundstellen zu einem über InputBox abgefragten Suchbegriff gelistet.

Prozedur: FundstellenSuchen
Art: Sub
Modul: Standardmodul
Zweck: Fundstellen listen
Ablaufbeschreibung:
- Variablendeklaration
- Suchbegriff über InputBox abfragen
- Wenn kein Suchbegriff eingegeben wurde, Prozedur verlassen
- Index der letzten Zelle mit Inhalt in Spalte A in eine Integer-Variable einlesen
- Schleife über alle belegten Zellen in Spalte A bilden
- Wenn der aktuelle Zellinhalt dem Suchbegriff entspricht...
- Zelladresse der aktuellen Zelle dem Listefeld hinzufügen

Code:


Sub FundstellenSuchen()
   Dim iRow As Integer, iRowL As Integer
   Dim sSearch As String
   sSearch = InputBox(prompt:="Suchbegriff:")
   If sSearch = "" Then Exit Sub
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If InStr(Cells(iRow, 1).Value, sSearch) Then
         frmGefunden.lstFound.AddItem Cells(iRow, 1).Address
      End If
   Next iRow
   frmGefunden.Show
End Sub