Private Sub Label1_Click()
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
End Sub
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
Else
ET = Left(Trim(Text), Len(Trim(Text)) - 1)
ActiveCell.Offset(0, 0).Value = ET
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