Excel Bedinung Checkox in anderem Makro übernehmen

[Excelmania]

Hallo.

Ich möchte gerne, dass ein Button prüft, ob eine Checkbox (Checkbox1 auf dem aktivierten Tabellen) aktiviert aktiviert ist und wenn ja, dass dann in einem bestimmten Bereich eine Ananymisierung von Personendaten durchführt.

Die Checkbox (ActiveX) bekomme ich jedoch nicht angesprohen.

'Code der Datenaufbereitung

If ActiveSheet.CheckBox1.Value = True Then

    With ActiveSheet
        For n = ZeZ To ZlZ
            .Range("A" & n).Value = "x" & n
        n = n + 1
        Next
    End With

Else: End If

 

[Wurzelsepp29]

Vermutlich weil ActiveSheet nicht das Sheet ist, wo gerade die Checkbox ist?

Tipp für weitere Projekte: ActiveSheet und .Select/.Activate --> weit weg werfen und niemals wieder hernehmen. Eine eindeutige Referenz ist immer die bessere Wahl. Man weiß nie, ob der User nicht während der Makro-Laufzeit mal wo anders hinklickt und dann rennt das Makro völlig falsch.