Makro erweitern
01.05.2018 16:22:38
mike49
Beim Ausführen meines Löschen-Makros soll der Wert in D4 um 1 erhöht werden, jedoch nur bis zur Zahl 12. Danach soll wieder mit 1 begonnen werden.
Wie müsste dieses Makro ergänzt werden?
Sub Löschen2()
' Löschen2 Makro
ActiveSheet.Unprotect
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
Range("A12:C37").Select
Selection.ClearContents
Range("D4").Select
ActiveSheet.Protect
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub
Gruß
mike49