Office: (Office 2016) Mehrere Werte getrennt (,) in eine Zelle eintragen

Hallo zusammen

Habe in Excel eine UserForm mit Textfelder und mehrere Checkboxen erstellt. Mit einem klick auf den Button sollen die Werte der Textfelder in die Tabelle auf eine Zeile übertragen werden. Das funktioniert schon wunderbar.
Wenn der Benutzer mehrere Checkboxen auswählt, sollen alle ausgewählten Checkboxen in ein Feld mit , getrennt eingefügt werden.

Erwartetes Resultat in einer Zelle mit einer ausgewählten Checkbox:

Rot​

Erwartetes Resultat in einer Zelle mit drei ausgewählten Checkboxen:

Blau, Grün, Weiss​

Wie muss ich nun meinen Code anpassen damit die ausgewählten Checkboxen (Tag1 - Tag13) hintereinander in die Zelle eingetragen werden?

Code:

Private Sub CommandButton1_Click()

With UserFormCheck
        
    Dim last As Integer
    last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
    Cells(last, 1).Value = ""
    
    ' Emailadresse eintragen
    Cells(last, 2).Value = emailadresse.Value
    
    ' Sprache eintragen
    If OptionButtonSprache1 = True Then Cells(last, 3).Value = "DE"
    If OptionButtonSprache2 = True Then Cells(last, 3).Value = "FR"
    If OptionButtonSprache3 = True Then Cells(last, 3).Value = "EN"
    
    'Vornamen, Namen und Firma eintragen
    Cells(last, 4).Value = TextBox1.Value
    Cells(last, 5).Value = TextBox2.Value
    Cells(last, 6).Value = TextBox3.Value
   
    'Tags eintragen
    If Tag1 = True Then Cells(last, 7).Value = Tag1.Caption
    If Tag2 = True Then Cells(last, 7).Value = Tag2.Caption
    If Tag3 = True Then Cells(last, 7).Value = Tag3.Caption
    If Tag4 = True Then Cells(last, 7).Value = Tag4.Caption
    If Tag5 = True Then Cells(last, 7).Value = Tag5.Caption
    If Tag6 = True Then Cells(last, 7).Value = Tag6.Caption
    If Tag7 = True Then Cells(last, 7).Value = Tag7.Caption
    If Tag8 = True Then Cells(last, 7).Value = Tag8.Caption
    If Tag9 = True Then Cells(last, 7).Value = Tag9.Caption
    If Tag10 = True Then Cells(last, 7).Value = Tag10.Caption
    If Tag11 = True Then Cells(last, 7).Value = Tag11.Caption
    If Tag12 = True Then Cells(last, 7).Value = Tag12.Caption
    If Tag13 = True Then Cells(last, 7).Value = Tag13.Caption
        
    'Anschrift eintragen
    Cells(last, 8).Value = TextBox4.Value
    Cells(last, 9).Value = TextBox5.Value
    Cells(last, 10).Value = TextBox6.Value
    Cells(last, 11).Value = TextBox7.Value
    Cells(last, 12).Value = TextBox8.Value

End With

End Sub

 

Hi,

versuche es mal auf diesem Weg (ungetestet):

Code:

    Dim strEintrag As String
    If Tag1 = True Then strEintrag = strEintrag & ", " & Tag1.Caption
    If Tag2 = True Then strEintrag = strEintrag & ", " & Tag2.Caption
    If Tag3 = True Then strEintrag = strEintrag & ", " & Tag3.Caption
    If Tag4 = True Then strEintrag = strEintrag & ", " & Tag4.Caption
    If Tag5 = True Then strEintrag = strEintrag & ", " & Tag5.Caption
    If Tag6 = True Then strEintrag = strEintrag & ", " & Tag6.Caption
    If Tag7 = True Then strEintrag = strEintrag & ", " & Tag7.Caption
    If Tag8 = True Then strEintrag = strEintrag & ", " & Tag8.Caption
    If Tag9 = True Then strEintrag = strEintrag & ", " & Tag9.Caption
    If Tag10 = True Then strEintrag = strEintrag & ", " & Tag10.Caption
    If Tag11 = True Then strEintrag = strEintrag & ", " & Tag11.Caption
    If Tag12 = True Then strEintrag = strEintrag & ", " & Tag12.Caption
    If Tag13 = True Then strEintrag = strEintrag & ", " & Tag13.Caption
    If strEintrag <> "" Then Cells(last, 7).Value = Mid(strEintrag, 3)

Bis später,
Karin

 

Funktioniert wunderbar!
Danke Karin

 

Hola,

schön dass du auch im anderen Forum Bescheid gesagt hast, dass dein Problem gelöst wurde.....

Gruß,
steve1da

 

Gerne, ist für mich Selbsverständlich
Gruss

 

Hola,

seh ich
https://www.ms-office-forum.net/forum/showthread.php?t=364183

Gruß,
steve1da