Kontrollkästchen im Formularsteuerelement mit Makro löschen

[H.Fischer]

Hallo Tom,

wenn ich die Schaltfläche "Löschen" drücke um das Makro auszulösen ist dieser Teil des Makros gelb unterlegt und ich bekomme die Fehlermeldung:  Laufzeitfehler 9  Index außerhalb des gültigen Bereichs   Sheets("Tabelle1").Shapes("Check Box " & i).OLEFormat.Object.Value = 0.
Sorry, den Laufzeitfehler habe ich eben vergessen zu erwähnen   .

Gruß

Hartmut

[Crazy Tom]

dann musst du wohl

Sheets("Tabelle1") ändern in Sheets("wie auch immer dein Blatt heißt")

[schauan]

Hallöchen,

1)
die Kontrollkästchen fangen später an.
2)
Das Blatt heißt Earningvorbereitung und nicht Earningvorbeitung

[H.Fischer]

Hallo,

ich glaube ich geb´s auf. Ich habe jetzt den Namen des Tabellenblattes in "Earningvorbereitung" geändert und bekomme nun folgende Fehlermeldung: Laufzeitfehler 2147024809 (80070057)  Das Element mit dem angegebenen Namen wurde nicht gefunden.

Gruß

Hartmut

[Crazy Tom]

wie viele Kontrollkästchen hast du denn auf deinem Tabellenblatt?
du hattest gesagt du hättest 24 Kontrollkästchen ich sehe da aber nur eins

[H.Fischer]

Hallo Tom,

das eine was du siehst ist ein Kontrollkästchen (ActiveX-Steuerelement). Dieses Kästchen ist eigentlich ohne Bedeutung, was ich meinte sind die Kontrollkästchen (Formularsteuerelemente), ich habe mal eines auf der beiliegenden pdf-Datei rot gekennzeichnet. 
Ich habe jetzt die Formel wie folgt geändert:   For i = 1 To 1  bezogen auf das eine vorhandene ActiveX Steuerelement und
Sheets("Earningvorbereitung").Shapes("Check Box " & i).OLEFormat.Object.Value = 0

trotzdem kommt dieser lange Laufzeitfehler  2147024809 (80070057)

Gruß

Hartmut

[Klaus-Dieter]

Hallo Harald,

nur mal zu meinem Verständnis: du gibst auf dem Blatt Earningvorbereitung Daten ein, dann druckst du das aus, um danach die Daten zu löschen, ohne sie irgendwohin zu Speichern?

[Crazy Tom]

deine Kontrollkästen heißen

Kontrollkästchen202

Kontrollkästchen 203 und 204 fehlen

Kontrollkästchen205
Kontrollkästchen.....

hab sie jetzt nicht alle durchgeschaut
aber mit einer normalen For-Next gibt dat nüscht

also entweder so

Code:

Sub drissHoch2()
    Dim i As Integer
    With Sheets("Earningvorbereitung")
        .Unprotect "Rose"
       
        .Shapes("Check Box  202").OLEFormat.Object.Value = 0
        .Shapes("Check Box  205").OLEFormat.Object.Value = 0
        'hier darfst du dann deine Kontrollkästchen alle einzeln wie oben aufführen
       
        .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
        .Protect "Rose"
    End With
End Sub

oder jemand anderes weiß wie man Kontrollkästchen nach Type anspricht

ich mach nu den Hajo und bin raus
viel Erfolg noch

[H.Fischer]

Hallo Klaus-Dieter,

ja so ist das, da ich die Berechnungen lediglich für mein weiteres Vorgehen benötige, lösche ich die Berechnungen danach wieder um die Datei für die nächsten Berechnungen wieder neu mit Daten zu füllen.

Beste grüße

Hartmut

[Klaus-Dieter]

Hallo,

schon ein etwas ungewöhnliches Vorgehen.