Kontrollkästchen im Formularsteuerelement mit Makro löschen

[schauan]

Hallo Hartmut,

ich hatte die beiden Probleme ja beschrieben. Den Blattnamen hast Du korrigiert, nach den Kontrollkästchennamen aber nicht geschaut... 1 bis 24 haben die in der Regel nur, wenn Du die der Reihe nach erstellst und danach keine löschst und neu erstellst.

Da Du auf dem Blatt mehr als 24 hast, steht für mich jetzt die Frage, ob Du alle zurücksetzen willst oder nur die von einem Block.

Alle könntest Du so zurücksetzen:

Code:

Sub test_as()
    Dim objShape As Shape
    For Each objShape In Sheets("Earningvorbereitung").Shapes
      If objShape.Type = msoFormControl Then
        If objShape.FormControlType = xlCheckBox Then objShape.ControlFormat.Value = 0
      End If
    Next
End Sub

[H.Fischer]

Hallo Klaus-Dieter,

ich will es kurz erklären, warum es für mich nicht ungewöhnlich ist.

Wenn ich die Berechnungen zu einzelnen Aktien mit meinem Tool gemacht und ausgedruckt habe, nutze ich die Informationen für meine Tradingaktionen mit den einzelnen Aktien und zwar immer vor den Zeiten wenn die Aktiengesellschaften ihre Quartalszahlen bekannt geben. Ich bin im wesentlichen im Optionshandel tätig (Put und Call). Die Prämien für die Optionen sind vor Bekanntgabe der Quartalszahlen deutlich höher als das normal der Fall ist.
Nachdem ich meine Trades gemacht habe sind die Berechnungen die ich mit meinem Tool gemacht habe "Geschichte" und werden nicht mehr von mir benötigt, daher lösche ich sie.

Viele Grüße

Hartmut

---

Hallo Tom,

super, das funktioniert . 
Nur noch eine Frage, wie hast du die Namen der Kontrollkästchen herausgefunden? Ich hatte sie gelöscht da sie im Bild nur gestört haben.

Besten Dank

Hartmut

[RPP63]

Nachdem ich meine Trades gemacht habe sind die Berechnungen die ich mit meinem Tool gemacht habe "Geschichte" und werden nicht mehr von mir benötigt, daher lösche ich sie.

Moin Hartmut!
Kennst Du Excel-Vorlagen (.xltx)?
https://support.microsoft.com/de-de/offi...e?ui=de-de
Damit erübrigen sich sämtliche VBA-Verrenkungen!

Gruß Ralf

[H.Fischer]

Hallo André,

deinen Code könnte ich auch noch gebrauchen, mit der Schaltfläche "komplett Löschen" möchte ich alle 48 Kontrollkästchen löschen, wie bringe ich in deinem Code denn meine anderen ein:
Range("b20:b21, c19, D20:d21, f20:f21,c25:d25").ClearContents
    Range("c27, E26, e28, f27, c35:d35, c37, E36, e38").ClearContents
    Range("f37, h25:i25, h27, j26, j28, k27, h35:i35").ClearContents

Den Code von Tom brauche ich wenn ich die Kästchen aus den einzelnen Werten 1 bis 6 löschen will.

Gruß

Hartmut

---

Hi Ralf,

das verstehe ich nicht ganz.

Gruß

Hartmut

[{Boris}]

Hi,

nur kurz zur Ursprungsfrage (habe nicht alles gelesen):

ich habe ein Kontrollkästchen (Formularsteuerelement). Ich suche nun das Makro um das Häkchen in dem Kontrollkästchen mittels einer Schaltfläche (Formularsteuerelement) zu löschen.

Das geht auch mit der Checkbox-Auflistung. Dieses Makro entfernt die Häkchen in allen (Formular-Checkboxen) - bezogen auf Deine Beispieldatei:

Code:

Sub Haken_entfernen()
Dim cB As CheckBox
For Each cB In Tabelle11.CheckBoxes
    cB.Value = False
Next cB
End Sub

[RPP63]

Hi Ralf,

das verstehe ich nicht ganz.

Du hast ein Berechnungsformular.
Dies beinhaltet diverse Formeln, Formatierungen und eben Formular-Steuerelemente.
Anstatt im Formular mühsam die Eingabezellen zu löschen und die Kontrollkästchen auf den Zustand "leer" zu setzen, …
… nimmt man eine "jungfräuliche" Vorlagendatei mit allen Formeln, Formatierungen und Steuerelementen, speichert sie im oben genannten Typ ab und öffnet eine neue Datei auf Basis der Vorlage.
Näheres steht in meinem Link.

Gruß Ralf

[schauan]

Hallo Hartmut,

um bestimmte Kontrollkästchen zurückzusetzen,
- brauchst Du z.B. deren Namen oder
- hast einen Zellbereich, in dem die liegen und schaust, ob die linke obere Ecke in dem Bereich liegt oder
- verknüpfst die Kontrollkästchen mit Zellen und setzt die Werte in den Zellen auf 0 oder
- nutzt eine Vorlage - das kann auch eine schreibgeschützte Exceldatei sein, mit der Du dann immer wieder die Arbeit startest (siehe Antwort von Ralf) oder
- ...

[H.Fischer]

Hi Ralf,



Danke dir
Gruß Hartmut

---

Ich danke euch allen für die Hilfe, ich habe jetzt Lösungen für mein Problem erhalten,
Danke das ihr soviel Geduld mit mir hattet.

Ich wünsche euch noch einen schönen Abend

Gruß

Hartmut