AW: Code ändern
16.09.2018 16:39:34
Ralf
Hi marta,
den Code beim denkbar schlechtesten "Berater" im Netz gefunden? :D
Du solltest Dir unbedingt andere Quellen suchen!
Ersetze Deine Sub UserForm_Initialize komplett durch diese:
Private Sub UserForm_Initialize()
Dim spalte As Byte
For spalte = 2 To Tabelle1.Rows(1).Find("", after:=Tabelle1.Cells(1, 1)).Column
ListBox1.AddItem (Tabelle1.Cells(1, spalte))
Next spalte
End Sub
Und die ListBox1_Click durch diese:
Private Sub ListBox1_Click()
Dim lZeile As Long, spalte As Byte
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.
'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then
spalte = ListBox1.ListIndex + 2 ' 2 'Start in Zeile 2, Zeile 1 sind ja die Ü _
berschriftrn
For lZeile = 2 To Tabelle1.Columns(1).Find("", after:=Tabelle1.Cells(1, 1)).Row
Me.Controls("TextBox" & lZeile - 1).Text = Tabelle1.Cells(lZeile, spalte)
Next
End If
End Sub