Makro ergänzen
mike49
ich habe eine Makro, dass ich ein wenig verändern möchte und dazu Hilfe brauche.
Wenn ich das Makro laufen lasse, soll in S8 das Datum 31.07. und das Folgejahr im Format "dd.mm.jjjj" eingetragen werden. Welche Zeile muss man noch einfügen?
Das Makro:
Sub Löschen()
With Sheets("Seite 1")
.Unprotect
.[I21:I29].Value = .[R21:R29].Value
.[I31].Value = .[R31].Value
.[R25].FormulaLocal = "=WENN('Seite 2'!J18=0;0;'Seite 2'!J19)"
.[J20].FormulaLocal = "=M8"
.[S20].FormulaLocal = "=S8"
.[R21:R24].Value = 0
.[R26:R29].Value = 0
.[R31].Value = 0
.Protect
End With
For Each sh In Sheets(Array("Seite 3", "Seite 4"))
With sh
.Unprotect
.Range("B5:E58").ClearContents
.Protect
End With
Next
End Sub
Gruß
mike49