nochmals Makro ergänzen
mike49
Ich wollte noch, dass am Schluss des Makros zum Blatt "Seite 1" gewechselt wird.
Wie müsste noch ergänzt werden?
Hier nochmals 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
.[S8].Value = DateSerial(Year(Now) + 1, 7, 31)
.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
Anzeige