Office: verschiedenen Text in einer Zelle mit VBA darstellen

Hallo zusammen,
ich bin blutiger VBA Anfänger und verzweifele gerade an folgender Problematik.
Über eine UserForm möchte ich auswählen welchem Geschlecht die Mitarbeiter angehören.
Ich habe also drei CheckBoxen mit "männlich", "weiblich" und "divers" erstellt.
Der Text soll aber in EINER Zelle nebeneinander ausgegeben werden.
Wenn also z.B. alles drei ausgewählt ist, soll z.B. in Zelle A1 stehen: männlich, weiblich, divers.
Ist nur eine Box ausgewählt, soll z.B. nur weiblich dort stehen.
Habt ihr eine Idee, wie man das in VBA umsetzen kann?

Danke und Gruß
Honk

 

Hallo Honk,

If Chk_M Then
range("A123")=Chk_M.caption
End if
If Chk_W Then
If range("A123")<>"" Then
range("A123")= ", " & range("A123")=Chk_M.caption
Else
range("A123")=Chk_W.caption
End if
If Chk_D Then
If range("A123")<>"" Then
range("A123")= ", " & range("A123")=Chk_D.caption
Else
range("A123")=Chk_D.caption
End if

 

Hallo Honk,

Code geprüft

Code:

Option Explicit

Sub Eintrag()
    If Chk_M Then
        Range("A123") = Chk_M.Caption
    End If
    If Chk_W Then
        If Range("A123") <> "" Then
            Range("A123") = ", " & Range("A123") = Chk_M.Caption
        Else
            Range("A123") = Chk_W.Caption
        End If
    End If
    If Chk_D Then
        If Range("A123") <> "" Then
            Range("A123") = ", " & Range("A123") = Chk_D.Caption
        Else
            Range("A123") = Chk_D.ca
        End If
    End If
End Sub

Gruß Hajo

 

Hallo Hajo,

Danke für die schnelle Antwort.

mit der Lösung kann ich die Checkboxen problemlos jeder für sich ausgeben.
Wähle ich aber mehr als eine an, wird mir in der Zelle FALSCH ausgegeben.

Gruß
Honk

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

kein Problem, ich werde sie morgen hochladen, heute reicht mir die Zeit nicht mehr.
Danke für die bisherige Mühe.

 

Guten morgen,

ich habe fix eine neue Datei (test) mit dem Programm erstellt, anders geht es aus Datenschutzgründen leider nicht.
Das Ergebnis ist aber das Gleiche.
Ich schicke auch noch zwei Screenshots mit, wo das Ergebnis zu sehen ist.
Es würde mich auch nicht wundern, wenn es sich nur um eine dumme Kleinigkeit handelt, die ich übersehen habe.
Ich hoffe das hilft weiter und bin auf die Antwort gespannt.

Gruß
Honk

 

Hallo Honk,

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Moin Honk,
probier mal

Code:

Private Sub CommandButton1_Click()
    Range("A1") = ""
    If Chk_M Then
        Range("A1") = Chk_M.Caption
    End If
    If Chk_W Then
        If Range("A1") <> "" Then
            Range("A1") = Range("A1") & ", " & Chk_W.Caption
        Else
            Range("A1") = Chk_W.Caption
        End If
    End If
    If Chk_D Then
        If Range("A1") <> "" Then
            Range("A1") = Range("A1") & ", " & Chk_D.Caption
        Else
            Range("A1") = Chk_D.Caption
        End If
    End If
End Sub

oder alternativ

Code:

Private Sub CommandButton1_Click()
    Range("A1") = ""
    If Chk_M Then
        Range("A1") = "männlich"
    End If
    If Chk_W Then
        If Range("A1") <> "" Then
            Range("A1") = Range("A1") & ", weiblich"
        Else
            Range("A1") = "weiblich"
        End If
    End If
    If Chk_D Then
        If Range("A1") <> "" Then
            Range("A1") = Range("A1") & ", divers"
        Else
            Range("A1") = "divers"
        End If
    End If
End Sub

Gruß
Doming

 

Hallo Doming,

perfekt, das funktioniert!

Vielen Dank dafür


Gruß
Honk

 

Hallo,

auch dieser VBA-Code müsste funktionieren:

Code:

Private Sub CommandButton1_Click()
   Dim Txt As String
   Txt = ""
   If Chk_M.Value Then Txt = Txt & ", " & Chk_M.Caption
   If Chk_W.Value Then Txt = Txt & ", " & Chk_W.Caption
   If Chk_D.Value Then Txt = Txt & ", " & Chk_D.Caption
   Range("A1").Value = Mid$(Txt, 3)
End Sub