"Fundstelle" zusätzlich in Listbox übernehmen?
28.12.2017 15:12:19
Vic
ich lasse mit folgendem Code (in einer Userform) mehrere Blätter einer Arbeitsmappe nach einem _ Wert (kann beliebig oft vorkommen) durchsuchen und die Ergebnisse in einer Listbox auflisten:
Option Explicit
Private Sub cmd_Suche_Click()
Dim i As Integer
Dim ws As Worksheet
Dim rng As Range
Dim strFirst As String
'Dim strReihe As String
'Dim strRegister As String
ListBox1.Clear
For i = 2 To Worksheets.Count - 9
With Sheets(i)
Set rng = .Range("B4:B" & .Rows.Count).Find(What:=TB_Suche, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=False, after:=.Cells(.Rows.Count, 2))
If Not rng Is Nothing Then
strFirst = rng.Address
'strReihe = rng.Row ' rng.Address
End If
End With
Next i
Set rng = Nothing
End Sub
Mein Versuch ist im Code auskommentiert, weil es nicht funktioniert: Ich würde gern jedem gefundenen Datensatz die "Fundstelle" - also Tabellenblattname (besser noch den Index) und Zeilennummer mitgeben. Geht das überhaupt und wenn ja, wie ließe sich das umsetzten?
Alternativ: Wie kann ich die gefundenen Datensätze so referenzieren, das ich sie mit ListBox_Click()ansteuern kann? Sie sind ja über die gesamte Mappe verteilt.
Danke vorab für eure Hilfe!
Vic
Anzeige