Makro läuft nicht richtig
07.09.2007 20:39:21
mike49
habe da ein kleines Löschen-Makro gebastelt, das nicht so läuft wie ich will.
Sub Löschen()
For Each sh In Sheets(Array("Seite 3", "Seite 4"))
With sh
.Unprotect
.Range("B5:E58").ClearContents
.Protect
End With
Next
With Sheets("Seite 1")
.Unprotect
.[J21:J29].Value = .[R21:R29].Value
.[R21:R24].Value = 0
.[R25].FormulaLocal = "=Wenn('Seite 2'!J18=0;0;'Seite 2'!J19)"
.[R26:R29].Value = 0
.Protect
End With
End Sub
Es sollen quasi die Werte aus Bereich R21:R29 nach J21:J29 übertragen werden. Alle Werte im Bereich R21:R24 und R25:R29 sollen dann auf 0 gesetzt werden. In R25 soll die im Makro genannte Formel eingetragen werden. Leider wird der durch die Formel gebildete Wert in R25 nicht nach J25 rüberkopiert.
Was habe ich falsch gemacht?
Gruß
mike49