Ich habe dieses Löschen Makro:
Sub Löschen()
' Löschen Makro
ActiveSheet.Unprotect
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
'Übernahme der Monatsstundentunden/Urlaubs-/Krankheitstage
Dim zeile As Integer
'Monatsstunden
zeile = 22 + ActiveSheet.Range("D4")
ActiveSheet.Range("N" & zeile) = ActiveSheet.Range("E38")
'Urlaubstage
zeile = 22 + ActiveSheet.Range("D4")
ActiveSheet.Range("U" & zeile) = ActiveSheet.Range("K43")
'Krankheitstage
zeile = 22 + ActiveSheet.Range("D4")
ActiveSheet.Range("V" & zeile) = ActiveSheet.Range("K44")
'Weiter mit alten Anweisungen
Dim rngLöschen As Range
Set rngLöschen = ActiveSheet.Range("A12:C37")
rngLöschen.ClearContents
Set rngLöschen = ActiveSheet.Range("F12:F37")
rngLöschen.ClearContents
rngLöschen.FormulaLocal = "=WENN(B12"""";""A"";"""")"
Set rngLöschen = Nothing
Range("B12").Select
' Call Tabelle1.spinMonth_SpinUp
ActiveSheet.Protect
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub
Wie kann ich erreichen, dass die Ziffer in D4 um 1 erhöht wird, jedoch bis höchstens 12. Dann soll wieder von 1 begonnen werden.
Gruß
mike49