CheckBox deaktivieren
09.08.2006 11:08:24
Dirk
wie ist es möglich, folgende CheckBox nur dann zu aktivieren, wenn in Zelle AC12 der Wert "aktiv" steht?
Steht in AC12 etwas anderes, so soll die CheckBox inaktiv (also nicht veränderbar) sein.
Private Sub CheckBox1_Click()
Dim s As String, ok As Boolean
''Prüfen, ob Zeilen sichtbar und Ergebnis umdrehen
ok = Not ThisWorkbook.Worksheets("Abrech-detail").Rows("2:2").Hidden
s = "Abrech-detail"
''Blattschutz aufheben
tabSchutzSetzen s, False
''Zeilen ein-/ausblenden
ThisWorkbook.Worksheets(s).Rows("2:16").Hidden = ok
''Blattschutz wieder setzen
tabSchutzSetzen s, True
MsgBox "Bitte nach allen Änderungen in diesem Bereich zu 'Abrech-detail' wechseln u. F9 drücken."
End Sub
Ich freue mich auf Eure Tipps.
MfG Dirk N.