Hallo Community
Vereinfachte Code Darstellung bei sehr vielen Checkboxen!
Private Sub CheckBox1_Click()
Call CheckMakro(CheckBox1.Name, CheckBox1.Value)
End Sub
Private Sub CheckBox2_Click()
Call CheckMakro(CheckBox2.Name, CheckBox2.Value)
End Sub
Sub CheckMakro(ChName As String, Zustand As Boolean)
Dim Daten(1 To 2) As String 'Dimensionierung nach Anzahl der Checkboxen ändern
Daten(1) = "A1,10:10"
Daten(2) = "B1,11:11" 'Definierung der Daten fortsetzen 3,4,etc.
If Zustand = True Then
Range("" & Mid(Daten(Mid(ChName, 9, Len(ChName))), 1, InStr(Daten(Mid(ChName, 9, Len(ChName))), ",") - 1)) = Mid(Daten(Mid(ChName, 9, Len(ChName))), InStr(Daten(Mid(ChName, 9, Len(ChName))), ",") + 1, Len(Daten(Mid(ChName, 9, Len(ChName)))))
Else
Range("" & Mid(Daten(Mid(ChName, 9, Len(ChName))), 1, InStr(Daten(Mid(ChName, 9, Len(ChName))), ",") - 1)) = ""
End If
End Sub
Beliebige Ereignissprozeduren lassen sich mit der selben Structur vereinfachen und produzieren so einen sehr guten schnellen Überblick.
Gruß Nighty