Hallo,

ich habe folgenden VBA-Code:

Private Sub Label1_Click()

End Sub

'Exit-Button
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
End Sub


'Titel der Userform und Auswahl der Mehrfachselektion
Private Sub UserForm_Initialize()
UserForm1.Caption = "Please categorize the Remark"
Dim rngZelle                  As Range
    For Each rngZelle In Worksheets("Report").Range("AK6:AK100")
        If IsEmpty(rngZelle) Then Exit Sub
        Me.ListBox1.AddItem rngZelle.Value
    Next rngZelle
End Sub

Private Sub CommandButton1_Click()
Dim lngList                   As Long
Dim lngI                      As Long
Dim strAr()                   As String
    With Me.ListBox1

        ReDim strAr(1 To .ListCount - 1)
        For lngList = 0 To .ListCount - 1
            If .Selected(lngList) = True Then
                strAr(lngI + 1) = .List(lngList) & ","
                lngI = lngI + 1
            End If
        Next lngList
    End With
    Text = Join(strAr, " ")
    If Trim(Text) = "" Then
        'Nix oder Fehlermeldung keine Eintraege gewaehlt
    Else
        ET = Left(Trim(Text), Len(Trim(Text)) - 1)
        ActiveCell.Offset(0, 0).Value = ET 'Join(strAr(), vbLf)
    End If
    Unload Me
End Sub

Private Sub TextBox1_Change()
ActiveCell = TextBox1.Value
End Sub


Dabei handelt es sich um eine Userform mit einer Mehrfachselektion und einer Texbox für offene Nennungen. Wähle ich nur etwas aus der Selektion aus, werden diese Daten durch ein Komma getrennt in die jeweilige Zelle übertragen. Schreibe ich jedoch zusätzlich Text in die Textbox, wird dieser nicht mit in die Zelle übernommen. Wie kann ich diese Verbindung (Selektion + Texbtox) herstellen? Hätte gerne die Daten aus der Selektion + aus dem Textfeld getrennt durch ein Komma. Bin absoluter VBA-Beginner und würde mich über euere Uterstützung sehr freuen :).

Grüße und Danke im Voraus.

Tobias