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

Helfe beim Thema Mehrere Werte getrennt (,) in eine Zelle eintragen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen Habe in Excel eine UserForm mit Textfelder und mehrere Checkboxen erstellt. Mit einem klick auf den Button sollen die Werte der... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von ancaoffice, 1. Dezember 2019.

  1. ancaoffice Neuer User

    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
     
    ancaoffice, 1. Dezember 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    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
     
    Beverly, 1. Dezember 2019
    #2
  3. ancaoffice Neuer User
    Funktioniert wunderbar!
    Danke Karin
     
    ancaoffice, 1. Dezember 2019
    #3
  4. steve1da Office Guru

    Mehrere Werte getrennt (,) in eine Zelle eintragen

    Hola,

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

    Gruß,
    steve1da
     
    steve1da, 2. Dezember 2019
    #4
  5. ancaoffice Neuer User
    Gerne, ist für mich Selbsverständlich
    Gruss
     
    ancaoffice, 2. Dezember 2019
    #5
  6. steve1da Office Guru
Thema:

Mehrere Werte getrennt (,) in eine Zelle eintragen

Die Seite wird geladen...
  1. Mehrere Werte getrennt (,) in eine Zelle eintragen - Similar Threads - Werte getrennt Zelle

  2. Wert aus 2 TextBoxen suchen

    in Microsoft Excel Hilfe
    Wert aus 2 TextBoxen suchen: Hallo zusammen, ich habe eine UserForm mit der ich gerne zwei Werte in der Tabelle suchen möchte. TextBox1 = Datum (soll in Spalte B Tabelle "Veranstaltung" gesucht werden) TextBox2 = Text (soll...
  3. Textdatei mit Semikolon getrennten Werten in Verteilerliste in Outlook exportieren

    in Microsoft Outlook Hilfe
    Textdatei mit Semikolon getrennten Werten in Verteilerliste in Outlook exportieren: Hallo, mein PC mit einigen Verteilerlisten ist mir leider verschmiert, dass ich keinen Zugriff mehr auf diese Verteiler habe. Ich habe allerdings noch die gesendete Verteilerlisten Kontakte,...
  4. Spalteninhalte vergleichen Werte durch Leerzeichen getrennt

    in Microsoft Excel Hilfe
    Spalteninhalte vergleichen Werte durch Leerzeichen getrennt: Hallo, ich stehe vor der Aufgabe zwei Spalteninhalte zu vergleichen in welchen mehrere Werte stehen welche wiederum durch Leerzeichen getrennt sind. Die Reihenfolge der Werte kann dabei jedoch...
  5. Access Abfrage: Mehrere Werte in einer Zelle auflisten (mit "; " getrennt)

    in Microsoft Access Hilfe
    Access Abfrage: Mehrere Werte in einer Zelle auflisten (mit "; " getrennt): Hallo, ich benötige eine Abfrage, in welcher in einem Feld die Werte nicht "gruppiert", sondern "aufgelistet" werden sollen. Leider finde ich in der Entwurfsansicht unter "Funkion" diesen Punkt...
  6. Werte von getrennten und verbundenen Zellen vereinen

    in Microsoft Excel Hilfe
    Werte von getrennten und verbundenen Zellen vereinen: Hi, ich habe ein sog. Dialogbuch in Excel und muss einige Werte aus verbundenen Zellen extrahieren. Schwer in Worte zu fassen. Ich versuche es mal mit Bilder zu verdeutlichen. Das ist die...
  7. mehrere Werte in Pivot Auswertung, durch Semikolon getrennt anzeigen lassen +weiteres

    in Microsoft Excel Hilfe
    mehrere Werte in Pivot Auswertung, durch Semikolon getrennt anzeigen lassen +weiteres: Hallo Forum, ich habe folgende Probleme, vielleicht kann mir ja einer von euch helfen: 1. Ich bekomme in einer Pivot-Auswertung mehrere Einträge pro Zelle und würde mir gerne alle einzelnen...
  8. Werte in einer Tabelle zu Text mit Komma getrennt umwandeln

    in Microsoft Excel Hilfe
    Werte in einer Tabelle zu Text mit Komma getrennt umwandeln: Hallo ihr Spezialisten da draußen, ich suche nach einem einfachen Weg wie ich Zahlenwerte die in einer Excel-Tabelle in einer Spalte untereinander stehen so umwandeln kann, dass sie als Text...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden