Ich habe in einer UF eine CheckBox.
Leider wird das Makro beim anklicken nicht ausgelöst.
Könnte man den Code eventuell etwas verkürzen?
Gruß
Heinz
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13").Replace What:="21", Replacement:="1", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13").Replace What:="22", Replacement:="2", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13").Replace What:="23", Replacement:="3", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.ScreenUpdating = True
End Sub