Puh, war nicht leicht zu finden ...

Option Explicit

Private Sub UserForm_Activate()
    Call FillListBox
End Sub

Sub FillListBox()
    Dim lRow As Long, Ze As Long, Anz As Long, Pos As Long, x As Variant
    With ListBox1
        .RowSource = vbNullChar
        Anz = .ListCount
        lRow = Sheets("0_Stammd_FLA").Cells(Rows.Count, 3).End(xlUp).Row
        For Ze = 2 To lRow
            Me.ListBox1.AddItem (Sheets("0_Stammd_FLA").Cells(Ze, 3))
        Next Ze
    End With
End Sub

Private Sub ComboBox1_Click()
    Spalte = 21
    Zeile = (ComboBox1.ListIndex + 2)
End Sub


Private Sub ListBox1_Click()
    Dim Spalte As Integer, Zeile As Long
    Spalte = 3
    Zeile = (ListBox1.ListIndex + 2)
    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.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 + 27)
        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.TextBox38 = .Cells(Zeile, Spalte + 35)
        Me.TextBox39 = .Cells(Zeile, Spalte + 36)
        Me.TextBox40 = .Cells(Zeile, Spalte + 37)
        Me.TextBox41 = .Cells(Zeile, Spalte + 38)
        Me.TextBox42 = .Cells(Zeile, Spalte + 39)
        Me.TextBox43 = .Cells(Zeile, Spalte + 40)
        Me.TextBox44 = .Cells(Zeile, Spalte + 41)
    End With
    Call FillListBox
End Sub

Private Sub CommandButton1_Click()
    Dim Spalte As Integer, Zeile As Long
    Spalte = 3
    Zeile = (ListBox1.ListIndex + 2)
    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 + 11) = Me.TextBox14
        .Cells(Zeile, Spalte + 14) = Me.TextBox17
        .Cells(Zeile, Spalte + 15) = Me.TextBox18
        .Cells(Zeile, Spalte + 16) = Me.TextBox19
        .Cells(Zeile, Spalte + 27) = 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.TextBox38
        .Cells(Zeile, Spalte + 36) = Me.TextBox39
        .Cells(Zeile, Spalte + 37) = Me.TextBox40
        .Cells(Zeile, Spalte + 38) = Me.TextBox41
        .Cells(Zeile, Spalte + 39) = Me.TextBox42
        .Cells(Zeile, Spalte + 40) = Me.TextBox43
        .Cells(Zeile, Spalte + 41) = Me.TextBox44
    End With
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

So sollte es gehen. Und ab jetzt dürfen sich Helfer-Kollegen damit beschäftigen, wenn noch etwas nicht klappt (was gewiss kommt).

Gruß

Günther