um diese spaltenweise in einer Listbox darzustellen (eine Reihe je Datensatz)
und daraus dann einen Datensatz zu selektieren, um diesen in Textfeldern darzustellen.
Option Explicit
Private Sub ListBox1_Change()
With Me.ListBox1
Me.TextBox1 = .List(.ListIndex, 0)
Me.TextBox2 = .List(.ListIndex, 1)
Me.TextBox3 = .List(.ListIndex, 2)
End With
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.List = Sheets("Tabelle1").Range("A2:C6").Value
End Sub