Office: (Office 2010) Checkbox 13 Felder die Text in ZELLE füllen

Hallo, ich suche nach einer Pop-Up Möglichkeit 13 Checkboxen nebeneinander mit den Buchstaben A-M den Inhalt von zum Beispiel Zelle B5 zu bestimmen.
Sind die Markierungen bei A B und M gesetzt möchte ich das in Zelle B5 das Textfeld wie folgt aussieht: "a, b, m". Wählt man jetzt das A ab dann soll dort immer noch "b, m" stehen usw...
Gleiches soll dann zum Beispiel auch mit Zelle K5 funktionieren, also vorgegebene Zellen bei denen diese Art der Abfrage und Eintrag stattfindet.

Ich habe mich jetzt durch zig-Checkboxen Beispiele geklickt, ich finde nichts was dem nahe kommt "mehrere Checkboxen die den Inhalt einer einzigen Zelle bestimmen".

Ich bitte um Hilfe.

 

Hi,

lade doch mal deine Mappe hoch.

Bis später,
Karin

 

Hallo, hier die Datei um die es geht, ich habe mal die ersten beiden Spalten markiert, da werden täglich die Allergene eingetragen. Unten beim Dessert habe ich mal stehen lassen wie es normalerweise aussieht.

Wie du sehen kannst, müssen täglich viele Allergene pro Speisen eingetragen werden und in der Gastronomie wo man eh schon keine Zeit hat, muss man sich auch noch mit sowas herumschlagen. Deshalb würde ich mich freuen hier Hilfe zu finden. Zum Beispiel durch Doppelklick auf die Allergenzelle und in einem PopUp muss ich nur noch mit der Maus die Allergene ankreuzen die ich darin stehen haben möchte.

 

Hi,

benutze ein UserForm mit CheckBoxen. Beim Speichern (z.B. per Button auf dem UserForm) der ausgewählten Allergene läufst du einfach in einer Schleife über alle CheckBoxen und prüfst, ob sie aktiviert sind - wenn ja, dann zum Inhalt der aufrufenden (selektierten) Zelle die Caption der betreffenden CheckBox hinzufügen.

Bis später,
Karin

 

Liebe Karin, ich habe mal eine zweite Datei hochgeladen, die macht eigentlich genau das was ich suche, im original war die Zelle die man anklicken musste A1 und er schrieb dann das Ergebnis in A1. Wie ich die Zelle auf D4 verschieben habe ich herausgefunden, aber der Code schreibt dann trotzdem nur in A1...

Ausserdem wäre es mir am liebsten das die Checkbox irgendwie Mittig vom Bildschirm auftaucht, könntest du mir dabei vielleicht helfen? Den Anhang checkbox -test.xlsm betrachten

 

Hi,

willst du nun eine Lösung zu der zuletzt hochgeladenen Mappe oder zu der aus deinem Beitrag von Gestern, 11:11?

Bis später,
Karin

 

Was einfacher ist? Ich habe mich an einem eigenen UserForm versucht, so richtig komme ich damit aber nicht zurecht. Die neue Mappe finde ich super, so würde ich das gerne bei mir einbauen, bin aber nicht sicher ob ich meine Wünsche da überhaupt umgesetzt bekommen.
Also checkbox-test.xlsm - was sagst du dazu?

 

Ich hatte - während du die neue Mappe hochgeladen hast - bereits eine Lösung für die erste hochgeladene Mappe fast fertig erstellt...

Bis später,
Karin

 

das sieht doch super aus, genauso wünsche ich mir das! was muss ich da noch anpassen liebe Karin, damit der die Auswahl auch einträgt?

 

Sorry, Fehler vom Amt - die Variablen müssen zurückgesetzt werden - so sollte es jetzt korrekt funktionieren:

Code:

Private Sub cmdEintrag_Click()
    ReDim arrWerte(0)
    intZaehler = 0
    For intElement = 1 To 8
        If Me.Controls("CheckBox" & intElement) Then
            ReDim Preserve arrWerte(0 To intZaehler)
            arrWerte(intZaehler) = Me.Controls("CheckBox" & intElement).Caption
            intZaehler = intZaehler + 1
        End If
    Next intElement
    If arrWerte(0) <> "" Then
        If UBound(arrWerte) > 0 Then
            ActiveCell.Value = Join(arrWerte, ", ")
        Else
            ActiveCell.Value = arrWerte(0)
        End If
    End If
    Unload Me
End Sub

Bis später,
Karin

 

Liebe Karin, das funktioniert super, ich Danke dir!
Darf ich Dich noch um eine Sache bitten, ich habe noch einen weiteren Button eingefügt, kannst du mir bei dem Befehl behilflich sein, der die Haken alle löscht?

 

Hi,

ganz simpel:

Code:

Private Sub CommandButton1_Click()
    For intElement = 1 To 14
        Me.Controls("CheckBox" & intElement) = False
    Next intElement
End Sub

Bis später,
Karin

 

Liebe Karin, das entfernt die Haken, aber setzt die Zelle dann nicht auf leer, entschuldige bitte, das hatte ich nicht dazu geschrieben.

 

Hi,

man kann Fragen immer nur so genau beantworten wie sie gestellt werden... :D

Ergänze diese Codezeile

Code:

ActiveCell.ClearContents

Bis später,
Karin

 

Liebe Karin, ich mache anscheinend etwas falsch, so sieht der code im moment bei mir aus:

Code:

Private Sub CommandButton1_Click()
    For intElement = 1 To 14
        Me.Controls("CheckBox" & intElement) = False
        ActiveCell.ClearContents
    Next intElement
    Unload Me
End Sub

verursacht aber nur eine Fehlermeldung.
Das Unload Me habe ich auch noch mit dazugenommen, damit er nach dem leeren der Zellen, das Fenster schließt, aber soweit kommt es nicht.