UserForm ListBox Zeilennummer ermitteln
17.04.2005 10:35:20
VolkerM
Habe folgendes Problem:
Ich möchte die tatsächliche Zeilennummer (in der Tabelle) der gefilterten Datensätze, welche in einer ListBox angezeigt werden, nach dem Filtern ermitteln, um mit ihr dann weiterarbeiten zu können.
Die Datensätze werden über eine TextBox und eine ListBox (UserForm) mit folgendem Code (stammt von Hans) gesucht bzw. angezeigt.
Private Sub Suchen()
Dim rngFind As Range, rngFirst As Range
Dim I As Integer
lstFind.Clear
I = TextBox1.Value
Set rngFind = Sheets("Daten").Columns(I).Find( _
What:=txtSuchen.Text, _
LookAt:=xlPart, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
lstFind.AddItem rngFind
Set rngFind = Sheets("Daten").Columns(I).FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address <> rngFirst.Address
End Sub
Private Sub lstFind_Click()
TextBox3.Value = ????
End Sub
Gibt es eine Möglichkeit ?
Vielen Dank im Voraus.
Gruß Volker