Office: (Office 2010) Makro gleichzeitiges aktivieren der Kontrollkästchen durch ein anderes

Hallo ich bin neu im Makro erstellen und bräuchte hierbei eure Hilfe

Ziel ist es, wenn ich ein Kästchen Klicke ein bzw. mehrere andere Kästchen aktiviert werden und andere deaktiviert werden.

So in etwa wie ich es mir Gedacht habe:

Sub Auswahlkästchen_klicken()
Worksheets("Parameter").Kontrollkästchen
If ActivSheet.CheckBox1 = True Then
Worksheet("Fertiges CR").Kontrollkästchen
ActiveSheet.Kontrollkästchen 1 = True
ActiveSheet.Kontrollkästchen 2 = True
ActiveSheet.Kontrollkästchen 3 = False
ActiveSheet.Kontrollkästchen 4 = False
Else
ActiveSheet.Kontrollkästchen = False
ActiveSheet.Kontrollkästchen 2 = False
ActiveSheet.Kontrollkästchen 3 = True
ActiveSheet.Kontrollkästchen 4 = True
End If
End Sub

Wäre toll wenn jemand eine Lösung dazu hat.

Desweiteren habe ich ein Problem bei diesen Makro:

Sub Kontrollkästchen17_Klicken()
Worksheets("Parameter").Rows("199:199").Insert Shift:=xlDown
Range("B21,C21,D21").Copy Worksheets("Fertiges CR").Range("G45")
End Sub

Es kopiert wie es soll den Inhalt in einer anderen Tabellenspalte. Doch es kopiert gleichzeitig das Kontrollkästchen mit. Weiß da jemand warum?

Vielen Dank schonmal für die Hilfe.

 

Hi,

handelt es sich um Formular-Steuerelemente oder ActiveX-Steuerelemente, die aktiviert/deaktivert werden sollen?


Zu Frage 2: versuche es so

Code:

Range("B21,C21,D21").Copy 
Worksheets("Fertiges CR").Range("G45").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Bis später,
Karin

 

Hi Karin,
danke für dein Vorschlag.

Das in Frage 1 sind Formular-Steuerelemente die durch ein anderes aktiviert bzw. deaktiviert werden soll.

Zu dem Code erhalte für den Unterstrich das es ein ungültiges Zeichen ist, nehme ich es heraus kommt ein Laufzeitfehler "Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden".

 

Hi,

zu Frage 1:

Code:

Sub Kontrollkästchen1_Klicken()
    With Worksheets("Fertiges CR")
        If ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value = 1 Then
            .Shapes("Kontrollkästchen 1").OLEFormat.Object.Value = -4146
            .Shapes("Kontrollkästchen 2").OLEFormat.Object.Value = -4146
            .Shapes("Kontrollkästchen 3").OLEFormat.Object.Value = 1
            .Shapes("Kontrollkästchen 4").OLEFormat.Object.Value = 1
        Else
            .Shapes("Kontrollkästchen 1").OLEFormat.Object.Value = 1
            .Shapes("Kontrollkästchen 2").OLEFormat.Object.Value = 1
            .Shapes("Kontrollkästchen 3").OLEFormat.Object.Value = -4146
            .Shapes("Kontrollkästchen 4").OLEFormat.Object.Value = -4146
        End If
    End With
End Sub

Zu Frage 2: dazu kann ich nichrs sagen, da der Code bei mir korrekt funktioniert - da müsstest du schon mal deine Mappe hochladen.


Bis später,
Karin

 

Richtig gut, Karin.
Der Code funktioniert. Warum wird den der Zahlenwert auf 1 und auf -4146 gesetzt?

Frage 2, werde ich mir nochmal in Ruhe anschauen. Und mich morgen dazu melden.

 

Bei Formular-Kontrollkästchen ist 1 der Wert für "aktiviert" und -4146 für "deaktiviert".

Bis später,
Karin