Hallo,

Bin gerade dabei einen Code eines Freundes umzuschreiben, so dass er für mich passt.

Irgendwie bekomme ich es nicht hin, dass von ListBox1 die erste Spalte angesprochen wird, da es eine zweispaltige ListBox geworden ist. BoundColumn hätte ich schon auf die erste Spalte gesetzt, damit diese mit dem .Value Befehl angesprochen werden kann.  Nur so wie ich bis jetzt herum probiert hätte, hat es nicht funktioniert.

Vielleicht könnte mir ja jeman weiterhelfen.

Sub CommandButton2_Click()

Dim loIndex As Long, raTreffer As Range, loLetzte As Long
 
For loIndex = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(loIndex) Then
        With Worksheets("Dokumentation")
            Set raTreffer = .Columns(8).Find(What:=Me.ListBox1..List(loIndex), LookIn:=xlValues, lookat:=xlWhole)  'Spalte Suchkreterium

            If Not raTreffer Is Nothing Then
                If .Cells(raTreffer.Row + 66, 5) = "" Then     'Letzte Zeile in Tabelle + Spalte
                    loLetzte = .Cells(raTreffer.Row + 67, 5).End(xlUp).Offset(1).Row  'Letzte Zeile + 1 in Tabelle + Suchkreterium
                        If TextBox1.Value = True Then
                        .Cells(loLetzte, 1) = CDate(Me.TextBox1)
                        End If
                        .Cells(loLetzte, 17) = Me.TextBox2
                        .Cells(loLetzte, 20) = Me.TextBox3
                        .Cells(loLetzte, 39) = Me.TextBox4
                        .Cells(loLetzte, 32) = Me.TextBox6
                        .Cells(loLetzte, 24) = Me.TextBox7
                        .Cells(loLetzte, 21) = Me.TextBox8
                        .Cells(loLetzte, 5) = Me.ComboBox1
                        .Cells(loLetzte, 36) = Me.ComboBox2
                Else
                    MsgBox "Eintrag unter der Liste " & Me.ListBox1.List(loIndex) & " nicht möglich," _
                    & vbLf & "diese Liste ist voll."
                End If
            End If
            Set raTreffer = Nothing
        End With
    End If
Next loIndex
 
Set raTreffer = Nothing

LG Alex