ich habe eine Datei mit 12 Blätter auf denen sich eine Combobox befindet.
Wie kann man mittels VBA alle 12 Tabellen Schutz aufheben und den Haken setzen ?
mfg sigrid
Public Sub AllE_Checkboxen_aktivieren()
Dim i As Integer
For i = 1 To 12
ActiveSheet.CheckBox1.Value = True
Next
Worksheets(1).Select
ActiveSheet.Range("D5").Select
End Sub
mfg sigrid
Public Sub AllE_Checkboxen_aktivieren()
Dim i As Integer
For i = 1 To 12
worksheets(i).CheckBox1.Value = True
Next
Worksheets(1).Select
ActiveSheet.Range("D5").Select
End Sub
Public Sub AllE_Checkboxen_aktivieren()
Dim i As Integer
For i = 1 To 3
Worksheets(i).CheckBox1.Value = True
Next
Worksheets(1).Select
ActiveSheet.Range("D5").Select
End Sub
Public Sub AllE_Checkboxen_deaktivieren()
Dim i As Integer
For i = 1 To 3
Worksheets(i).CheckBox1.Value = False
Next
Worksheets(1).Select
ActiveSheet.Range("D5").Select
End Sub
ich hatte dies übersehen, sorry Ralf !!!.