Zeilennummer beim einlesen ermitteln

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