Zeilennummer beim einlesen ermitteln
14.07.2022 17:04:13
Tim
ich habe eine Userform, die beim öffnen, Daten aus einer Tabelle einliest. Das Ganze funktioniert super, jedoch scheitere ich daran, mir die Zeilennummer, aus der der eingelesen Wert stammt mit ausgeben zu lassen.
Wie bekomme ich die Zeilennummer heraus?
Sub Daten_einlesen()
Dim Pfad As String, Datei As String, Blatt As String
Dim LetzteZeile As Long
Dim i As Long
Pfad = "c:\Desktop\"
Datei = "Test.xlsx"
Blatt = "Tabelle1"
Set Inhalt = GetObject(Pfad & Datei).Worksheets(Blatt)
LetzteZeile = Inhalt.Cells(Inhalt.Rows.Count, 1).End(xlUp).Row
For i = 2 To LetzteZeile
With UserForm3.Woanders_Übersicht
.AddItem
.List(.ListCount - 1, 0) = Inhalt.Cells(i, 1) 'Name
.List(.ListCount - 1, 1) = Inhalt.Cells(i).Row
End With
Next i
End
Sub