Hi Ihr,
ich habe noch eine Frage an die Ex(cel)perten: :-)
Ich habe ein Tabellenblatt mit einer Checkbox ("Check Box 23"), der ich ein Makro zugewiesen habe.
Das klappt soweit gut wenn ich die Checkbox markiere, d.h. den Haken setze und das Makro läuft wie gewünscht.
Wie schaffe ich es, dass beim erneuten anklicken, d.h. beim Entfernen des Hakens das gleiche Makro einen Schritt ändert ? Muss ich dazu im Makro eine If Then Schleife einbauen und wenn ja, worauf beziehe ich mich hier ?
Momentan schreibt das Makro beim Setzen des Hakens in der Checkbox den Wert 1 in P3.
Wenn der Haken in der Checkbox entfernt wird, soll diese 1 wieder entfernt werden bzw. "" in P3 eingetragen werden.
LG und vielen Dank im Voraus für jeden Tipp,
Jenny

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Check Box mit 2 Makros verbinden

Rudi
AW: Check Box mit 2 Makros verbinden

Jenny
AW: Check Box mit 2 Makros verbinden

Rudi
AW: Check Box mit 2 Makros verbinden

Jenny
AW: Check Box mit 2 Makros verbinden

Jenny
FormulaR1C1

Rudi
AW: FormulaR1C1

Jenny
CheckBox23_Click() reicht da schon

Matthias
AW: CheckBox23_Click() reicht da schon

Jenny
AW: CheckBox23_Click() reicht da schon

Jenny
AW: CheckBox23_Click() reicht da schon

Rudi
AW: CheckBox23_Click() reicht da schon

Jenny
AW: CheckBox23_Click() reicht da schon

Jenny
AW: CheckBox23_Click() reicht da schon

Reinhard
AW: CheckBox23_Click() reicht da schon

Jenny

AW: Check Box mit 2 Makros verbinden

10.04.2012 11:07:27

Rudi

Hallo,
Schema:

Sub xxxx()
If Shapes("Check Box 1").DrawingObject.Value = 1 Then
Range("A1") = "x"
Else
Range("A1") = ""
End If
End Sub

Gruß
Rudi

AW: Check Box mit 2 Makros verbinden

10.04.2012 11:22:50

Jenny

Hallo Rudi,
vielen Dank !
Ich habe es wie unten probiert, hier scheint sich VBA aber an dem Code-Teil "Shapes" zu stoßen, da es nicht funktioniert und im Debugger an diese Stelle springt.
Habe ich etwas übersehen ?
If Shapes("Check Box 23").DrawingObject.Value = 1 Then
Range("P3").FormulaR1C1 = "1"
Else
Range("P3").FormulaR1C1 = ""
End If
LG
Jenny

AW: Check Box mit 2 Makros verbinden

10.04.2012 11:26:39

Rudi

Hallo,
steht der Code in einem normalen Modul? Dann das Worksheet mit angeben.
z.B. If ActiveSheet.Shapes(.....
Gruß
Rudi

AW: Check Box mit 2 Makros verbinden

10.04.2012 12:21:37

Jenny

Hallo Rudi,
vielen Dank !
Auch das klappt (neben dem Vorschlag von Matthias) bestens - mit Deinem Tipp ließ es sich auch ganz leicht in mein Makro integrieren. :-)
LG und danke nochmal - einen schönen Nachmittag,
Jenny

AW: Check Box mit 2 Makros verbinden

10.04.2012 12:27:38

Jenny

Hallo Rudi,
ich habe noch eine kleine Frage an Dich - nur zum Verständnis: :-)
Wann reicht denn allgemein der Code-Teil Range("XX") = "x" und wann muss man nach der Klammer noch das .FormulaR1C1 ergänzen ?
LG
Jenny

FormulaR1C1

10.04.2012 13:31:26

Rudi

Hallo,
.FormulaR1C1 nur, wenn du eine Formel im Z1S1-Format eintragen willst. Bei Werten einfach so zuweisen, da dann die Default-Eigenschaft VALUE gesetzt wird.
Siehe auch Eigenschaften des Range-Objekts in der Hilfe.
Gruß
Rudi

AW: FormulaR1C1

10.04.2012 13:34:32

Jenny

Hallo Rudi,
vielen Dank - das ist super !
Jetzt verstehe ich es endlich. ;-)
LG
Jenny

CheckBox23_Click() reicht da schon

10.04.2012 11:14:38

Matthias

Hallo
Checkbox (ActiveX-Steuerelement)

Private Sub CheckBox23_Click()
Range("P3") = IIf(Tabelle1.CheckBox23, 3, "")
End Sub

https://www.herber.de/bbs/user/79719.xls
Gruß Matthias