Checkbox vs. Gruppierung
12.08.2006 18:46:41
Dirk
auf einem Blatt habe ich mehrere Checkboxen.
Hier mal ein kurzer Codeausschnitt dieses Blattes:
Option Explicit
Private Sub Worksheet_Calculate()
CheckBox1.Enabled = Range("AC12").Value = "aktiv"
CheckBox2.Enabled = Range("AC13").Value = "aktiv"
'Weitere Checkboxen
End Sub
Private Sub CheckBox1_Click()
Dim s As String, ok As Boolean
ok = Not ThisWorkbook.Worksheets("Abrech-detail").Rows("2:2").Hidden
s = "Abrech-detail"
tabSchutzSetzen s, False
ThisWorkbook.Worksheets(s).Rows("2:16").Hidden = ok
tabSchutzSetzen s, True
MsgBox "Bitte nach allen Änderungen..."
End Sub
'Weitere Checkboxen
Der Code funktioniert perfekt - stammt ja auch aus diesem Forum ! ;-)
Doch wenn ich nun die CheckBoxen gruppiere, um sie GEMEINSAM verschieben zu können, so greift die Option Explizit nicht mehr - d.h. die automat. Umstellung des Enable-Disable-Status wird nicht vorgenommen.
Das selbe Problem habe ich auch, wenn ich z.B. lediglich die CheckBox1 mit dem "darunterliegenden" Grafikobjekt gruppiere...
Wie muß ich obigen Code ändern bzw. gibt es auch noch eine andere Lösung?
MfG Dirk N.