Office: (Office 2010) Wenn...Dann Funktion mit ActiveX Checkbox

Hallo,

ich hab ein kleines Problem und finde leider keine Lösung. Hoffentlich kann mir hier geholfen werden.

Ich habe eine Checkbox mit VBA erstellt.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A1") = "WAHR"
Else
Range("A1") = ""
End If
End Sub

Neben dieser Checkbox ist eine Zelle mit dem Befehl:

=WENN(A1=WAHR;"*Smilie";"*frown.gif*")

Ich möchte also mit der Checkbox auswählen ob ein trauriger oder ein lächelnder Smiley in der Zelle auftauchen soll. Wenn ich jetzt die Checkbox aktiviere dann taucht auch in der entsprechenden Zelle das Wort WAHR auf aber der Smiley ändert sich nicht. Dieser Ändert sich erst wenn ich ein mal in die Zelle rein gehe wo durch die Checkbox WAHR steht und einfach wieder raus gehe. Ich möchte aber das er den Smiley ändert ohne das ich dafür in die Zelle rein klicken muss.

Anders herum funktioniert es. Also wenn der lächelnde Smiley da ist und ich dann den Haken aus der Checkbox nehme dann ist der traurige Smiley sofort da.

Kann mit jemand bei meinem Problem helfen ?

LG Rena

:)

 

Hallöchen,

Du schreibst reinen Text in A1, also "WAHR" mit Anführungszeichen...
In Deiner Formel mit den Smilys muss daher auch mit Anführungszeichen gearbeitet werden:

=WENN(A1="WAHR";"*Smilie ";"*frown.gif* ")

Viele Grüße
Marc

 

Oh das ging aber schnell.

Vielen dank hat geholfen *Smilie

LG

 

Ich hab noch eine Frage hinterher. Ich hab ziemlich viele Checkboxen die ich erstellen will. Jedes mal die Programmierung in VBA zu ändern ist ziemlich aufwändig. Kann ich anstatt A1 zu schreiben ihm auch sagen er soll sich auf die Zelle beziehen in die ich die Checkbox rein gesetzt habe ?

LG

 

Mit ActiveX Steuerelemente nicht so einfach möglich, da jede CheckBox ja eine Click-Routine braucht. Du kannst es aber mit Formularsteuerelementen versuchen, diese verbindet man mit einer Zelle ganz ohne Code.

 

Ja das mit den Steuerelementen hatte ich vorher. Ist eig auch eine super Sache aber leider verschwinden die nicht mit wenn man eine Zeile ausblenden will und deswegen ändere ich jetzt alles auf ActiveX.

 

Jetzt hab ich nur das Problem wenn ich eine Zeile einfüge das ist alles kaputt. Das ist sehr ungünstig. Kann man da denn Garnichts machen ?

 

Ich persönlich würde auf CheckBoxen verzichten und statt dessen eine Auswahlliste für den Status machen... man kann ja dann entsprechend auch Smilys anzeigen.
Ganz alternativ kann man natürlich eine VBA Eingabemaske für die Statusangaben basteln... aber das sprengt glaub ich den Rahmen *Smilie

 

Das mit der Auswahlliste ist leider nicht möglich. Das mit dem Smiley war von mir nur ein Beispiel. Ich benötige den Haken um Excel zu sagen er soll in diesen Fällen 11% Aufschlag drauf rechnen und wenn das Kästchen nicht angekreuzt ist dann nicht.

 

Mit ActiveX CheckBoxen ist es leider nicht so einfach möglich und viel Arbeit.
Alternativ eine Auswahlbox mit 0% und 11%... oder es gibt auch eine Möglichkeit mittels Doppel-Klick auf eine Zelle und der Schriftart WingDings zum Beispiel Symbole für CheckBoxen einzufügen und beim Doppel-Klick entsprechend zu wechseln (Haken ja/nein).

 

Das mit dem Doppelklick klingt interessant und könnte für mich eine Lösung sein. Gibt es hier im Forum dazu schon eine Beschreibung ? Ich hab so etwas noch nicht erstellt.

LG