Kontrollkästchen im Formularsteuerelement mit Makro löschen

[H.Fischer]

Hallo Tom,

ich schnalle es noch nicht. 
Das Makro der Schaltfläche befindet sich bei mir im Modul 12 und sieht so aus:

Sub Löschen21()

' Löschen21 Makro
'
    Range("b20:b21").Select
    Selection.ClearContents
    Range("c19").Select
    Selection.ClearContents
    Range("D20:d21").Select
    Selection.ClearContents
    Range("f20:f21").Select
    Selection.ClearContents
    Range("c25:d25").Select
    Selection.ClearContents
    Range("c27").Select
    Selection.ClearContents
    Range("E26").Select
    Selection.ClearContents
    Range("e28").Select
    Selection.ClearContents
    Range("f27").Select
    Selection.ClearContents
    Range("c35:d35").Select
    Selection.ClearContents
    Range("c37").Select
    Selection.ClearContents
    Range("E36").Select
    Selection.ClearContents
    Range("e38").Select
    Selection.ClearContents
    Range("f37").Select
    Selection.ClearContents
    Range("h25:i25").Select
    Selection.ClearContents
    Range("h27").Select
    Selection.ClearContents
    Range("j26").Select
    Selection.ClearContents
    Range("j28").Select
    Selection.ClearContents
    Range("k27").Select
    Selection.ClearContents
    Range("h35:i35").Select
    Selection.ClearContents
    Range("h37").Select
    Selection.ClearContents
    Range("j36").Select
    Selection.ClearContents
    Range("j38").Select
    Selection.ClearContents
    Range("k37").Select
    Selection.ClearContents

End Sub

Mir dem Makro lösche ich wiegesagt schon einige Cellen in der Tabelle  "Earningvorbereitung". Kann ich deinen Code in dieses Makro noch zusätzlich einfügen, wenn ja, wie?

Vielen Dank für deine Hilfe

Hartmut

[Crazy Tom]

das könnte z.B. so aussehen 

Code:

Sub driss()
    Dim i As Integer
    For i = 1 To 24
        Sheets("Tabelle1").Shapes("Check Box " & i).OLEFormat.Object.Value = 0
    Next
   
    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
    Range("h37, j36, j38, k37").ClearContents
End Sub

[Klaus-Dieter]

Hallo Hartmut,

oder so: Range("B20:B21,C19,D20:D21,F20:F21,C25:D25,C27,E26,E28,F27,C35:D35,C37,E36,E38,F37,H25:I25,H27,J26,J28,K27,H35:I35,H37,J36,J38,K37").ClearContents

[H.Fischer]

Hallo Klaus-Dieter,

ich füge mal eine Beispieldatei wo ich die nicht relevanten Tabellenblätter einmal gelöscht habe bei. Das Passwort zum Aufheben des Blattschutzes ist "Rose". 

Vielen Dank

Hartmut

---

Ich danke euch beiden, konnte eure Vorschläge noch nicht testen, melde mich aber später wieder.

Gruß

Hartmut

[Klaus-Dieter]

Hallo Hartmut,

ich sehe da sechs Eingabebereiche, die auf den ersten Blick alle gleich aussehen. Da würde also einer reichen. Was geschiegt mit den Daten, nachdem sie eingegeben sind? Vermutlich speicherst du die in die entsprechende Anzahl verschiedener Blätter, was der nächste Fehler wäre.

[Crazy Tom]

ich konnte mich bei meinen ersten Excel-Dateien mit Makros nicht satt sehen
an meinen ganzen select und activate, hach waren das noch Zeiten 

[H.Fischer]

Hallo Tom,

zunächst erst einmal dir und Klaus-Dieter vielen Dank, ich habe nun gesehen wie ich die Makros viel kompakter gestallten kann  ,

Dein Makro habe ich nun eingegeben und der Schaltfläche habe ich das Makro auch zugeteilt, folgende Zeile wird mir aber als Fehler noch gelb unterlegt angezeigt:

Sheets("Tabelle1").Shapes("Check Box " & i).OLEFormat.Object.Value = 0

Gruß

Hartmut

[Crazy Tom]

dazu gibt es sicher auch eine Fehlermeldung

[H.Fischer]

Hallo Klaus-Dieter,

In die 6 verschiedene Eingabebereiche gebe ich Vor- und Nachbörsliche Daten und Werte von Aktien ein die am selben Tag ihre Quartalszahlen bekannt geben. Nach Eingabe der Daten drucke ich die Seite/n aus. Anhand der Daten führe ich evtl. Tradingmaßnahmen durch die nichts mehr mit dieser Datei zu tun haben. Die Daten in der Exceldatei werden dann gelöscht und nicht in andere Dateien gespeichert.

Gruß

Hartmut

---

Hallo Tom,

ja, und ich weiß nicht warum, deshalb frage ich ja auch nach Hilfe. Meine Stärken liegen woanders, bei Excel sind sie leider nur begrenzt.

Gruß

Hartmut

[Crazy Tom]

würdest du die Fehlermeldung denn dann auch mal mitteilen?