CheckBox1-12 immer selbe Code ?
Heinz
Ich habe 12 CheckBoxen 1-12
Muss ich den Code für jede CheckBox schreiben?
Oder ginge es eventuell auch kürzer?
Danke
Heinz
Private Sub CheckBox1_Click()
Call BlattSchutz_Aufheben
ActiveSheet.Unprotect Password:="vetro"
Range("A3:B154").Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect Password:="vetro"
Call BlattSchutz_Ein
End Sub