Listbox von UF 1 auslesen und in UF 2 an

Private Sub UserForm_Initialize() Dim i As Long, j As Long 'Me.txt_Name = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 1) For i = 0 To frm_Teilnehmer.lst_Teilnehmer.ListCount - 1 If frm_Teilnehmer.lst_Teilnehmer.Selected(i) = True Then txt_Name.Value = frm_Teilnehmer.lst_Teilnehmer.List(i, 1) End If Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim i As Long, j As Long 'Me.txt_Name = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 1) If frm_Teilnehmer.lst_Teilnehmer.ListIndex = -1 Then Exit Sub txt_Name.Value = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 1) End Sub

Moin!
Das Problem ist, dass deine UF (Teilnehmer) nur 9 Spalten hat, du aber beim Geb.Datum auf eine 15 zugreifen willst. Das ist die Spalte im Blatt aber nicht in der Liste. Zudem solltest du bei Datum immer prüfen, ob es nicht leer ist. Ansonsten kannst du es nicht zuweisen. Und das ExitSub sollte an den Anfang, bevor du auf den Listindex zugreifst. Damit sieht der Code so aus.

Private Sub UserForm_Initialize()
Dim Anrede As String, Name As String, Vorname As String, PersNr As String, OE As String
Dim Taetigkeit As String, GB As String, GebTag As Date
Dim i As Long, j As Long
If frm_Teilnehmer.lst_Teilnehmer.ListIndex = -1 Then Exit Sub
Anrede = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 0)
Name = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 1)
Vorname = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 2)
PersNr = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 3)
OE = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 4)
Taetigkeit = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 5)
GB = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 6)
If frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 7)  "" Then _
GebTag = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 7)
If frm_Teilnehmer.lst_Teilnehmer.ListIndex = -1 Then Exit Sub
txt_Name.Value = frm_Teilnehmer.lst_Teilnehmer.List(frm_Teilnehmer.lst_Teilnehmer.ListIndex, 1)
End Sub

Aber nicht wundern. Der Code trägt nur in die 1. Box ein, da du vorher die Werte nur an Variablen zuweist.
VG

Beliebteste Forumthreads (12 Monate)

Listbox von UF 1 auslesen und in UF 2 an

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox von UF 1 auslesen und in UF 2 an

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread