Hallo Leute,

habe es gestern schonmal probiert. Leider ist mein Problem noch immer nicht gelöst. Vielleicht habe ich mich unklar ausgedrückt, bin Anfänger.

Habe bei folgender Maske  das Problem, das bei der ComboBox2 (DLRG) der bereits in der Zelle eingeschriebene Wert ("ja" oder "nein") beim Aufrufen nicht angezeigt wird.
 

Unter https://1drv.ms/x/s!AqUYL2xFRBmXhDkTRy7ECUl2Rzhg ist die Datei abgelegt. Unter "Arbeitsmappe bearbeiten" oben rechts lässt sich die Datei lokal öffnen.

Private Sub ComboBox1_Click()
    Dim lngLetzte As Long
    Dim lngAnz As Long
    Dim lngZeile As Long
    If ComboBox1.ListIndex = -1 Then Exit Sub
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "75;0"
    With Sheets("0_Stammd_FLA")
        lngLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
        ListBox1.Clear
        For lngZeile = 2 To lngLetzte
            If .Cells(lngZeile, 21).Value = ComboBox1.Text Then
                ListBox1.AddItem Cells(lngZeile, 3).Value
                lngAnz = ListBox1.ListCount
                ListBox1.List(lngAnz - 1, 1) = lngZeile
            End If
        Next lngZeile
    End With
End Sub
 
Private Sub TextBox38_Change()

End Sub

Private Sub UserForm_Activate()
    Call FillListBox
End Sub
 
Sub FillListBox()
    Dim lngLetzte As Long
    Dim lngAnz As Long
    Dim lngZeile As Long
    ComboBox1.AddItem "2016"
    ComboBox1.AddItem "2016_Rücktritt "
    ComboBox1.AddItem "Beendigung "
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "75;0"
    With Sheets("0_Stammd_FLA")
        lngLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
        ListBox1.Clear
        For lngZeile = 2 To lngLetzte
            ListBox1.AddItem Cells(lngZeile, 3).Value
            lngAnz = ListBox1.ListCount
            ListBox1.List(lngAnz - 1, 1) = lngZeile
        Next lngZeile
    End With
End Sub
  
Private Sub ListBox1_Click()
    Dim Spalte As Integer, zeile As Long
    Spalte = 3
    zeile = ListBox1.List(ListBox1.ListIndex, 1)
    With Worksheets(1)
        Me.TextBox3 = .Cells(zeile, Spalte)
        Me.TextBox4 = .Cells(zeile, Spalte + 1)
        Me.TextBox5 = .Cells(zeile, Spalte + 2)
        Me.TextBox6 = .Cells(zeile, Spalte + 3)
        Me.TextBox7 = .Cells(zeile, Spalte + 4)
        Me.TextBox8 = .Cells(zeile, Spalte + 5)
        Me.TextBox9 = .Cells(zeile, Spalte + 6)
        Me.TextBox10 = .Cells(zeile, Spalte + 7)
        Me.TextBox11 = .Cells(zeile, Spalte + 8)
        Me.TextBox12 = .Cells(zeile, Spalte + 9)
        Me.TextBox13 = .Cells(zeile, Spalte + 10)
        Me.TextBox14 = .Cells(zeile, Spalte + 11)
        Me.TextBox17 = .Cells(zeile, Spalte + 14)
        Me.TextBox18 = .Cells(zeile, Spalte + 15)
        Me.TextBox19 = .Cells(zeile, Spalte + 16)
        Me.TextBox30 = .Cells(zeile, Spalte + 28)
        Me.TextBox32 = .Cells(zeile, Spalte + 29)
        Me.TextBox33 = .Cells(zeile, Spalte + 30)
        Me.TextBox34 = .Cells(zeile, Spalte + 31)
        Me.TextBox35 = .Cells(zeile, Spalte + 32)
        Me.TextBox36 = .Cells(zeile, Spalte + 33)
        Me.TextBox37 = .Cells(zeile, Spalte + 34)
        Me.TextBox39 = .Cells(zeile, Spalte + 36)
        Me.TextBox40 = .Cells(zeile, Spalte + 37)
        Me.TextBox41 = .Cells(zeile, Spalte + 38)
        Me.TextBox43 = .Cells(zeile, Spalte + 40)
        Me.TextBox44 = .Cells(zeile, Spalte + 41)
    End With
End Sub
Private Sub UserForm_Initialize()

Me.ComboBox2.AddItem "ja"
Me.ComboBox2.AddItem "nein"
 
End Sub
Private Sub CommandButton1_Click()
    Dim Spalte As Integer, zeile As Long
    Spalte = 3
    zeile = ListBox1.List(ListBox1.ListIndex, 1)
    With Worksheets(1)
        .Cells(zeile, Spalte) = Me.TextBox3
        .Cells(zeile, Spalte + 1) = Me.TextBox4
        .Cells(zeile, Spalte + 2) = Me.TextBox5
        .Cells(zeile, Spalte + 3) = Me.TextBox6
        .Cells(zeile, Spalte + 4) = Me.TextBox7
        .Cells(zeile, Spalte + 5) = Me.TextBox8
        .Cells(zeile, Spalte + 6) = Me.TextBox9
        .Cells(zeile, Spalte + 7) = Me.TextBox10
        .Cells(zeile, Spalte + 8) = Me.TextBox11
        .Cells(zeile, Spalte + 9) = Me.TextBox12
        .Cells(zeile, Spalte + 10) = Me.TextBox13
        .Cells(zeile, Spalte + 11) = Me.TextBox14
        .Cells(zeile, Spalte + 14) = Me.TextBox17
        .Cells(zeile, Spalte + 15) = Me.TextBox18
        .Cells(zeile, Spalte + 16) = Me.TextBox19
        .Cells(zeile, Spalte + 28) = Me.TextBox30
        .Cells(zeile, Spalte + 29) = Me.TextBox32
        .Cells(zeile, Spalte + 30) = Me.TextBox33
        .Cells(zeile, Spalte + 31) = Me.TextBox34
        .Cells(zeile, Spalte + 32) = Me.TextBox35
        .Cells(zeile, Spalte + 33) = Me.TextBox36
        .Cells(zeile, Spalte + 34) = Me.TextBox37
        .Cells(zeile, Spalte + 35) = Me.ComboBox2
        .Cells(zeile, Spalte + 36) = Me.TextBox39
        .Cells(zeile, Spalte + 37) = Me.TextBox40
        .Cells(zeile, Spalte + 38) = Me.TextBox41
        .Cells(zeile, Spalte + 40) = Me.TextBox43
        .Cells(zeile, Spalte + 41) = Me.TextBox44
    End With
End Sub
  
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub