Listbox mit Inhalt Spalte A,B füllen

Private Sub cmdEintragen_Click()
Dim iRow As Integer
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Sheets("Tabelle3").Cells(iRow, 1) = lstAuswahl.Value
Sheets("Tabelle3").Cells(iRow, 2) = lstAuswahl.Value
End Sub

Private Sub lstAuswahl_Click()
End Sub

Private Sub UserForm_Initialize()
lstAuswahl.List = Range("A1") _
.CurrentRegion.Columns("A:B").Value
End Sub

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub