Makroproblem beim Formeln einfügen
22.04.2009 18:56:34
Martin
ich habe bei einem Makro ein kleines Problem. Ich möchte in einer geschützen Datei auf allen Blättern per Makro eine Formel eingeben. (Auf jedem Blatt der Mappe soll in die Celle C2 die Differenz aus F1 und F2 stehen). Ich habe mir dazu folgendes zusammen gebastelt. Allerdings schreibt er mir die Formel immer nur auf das erste Blatt und hört dann auf. Hat irgendjemand eine Idee was da falsch sein könnte?
Sub k3()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Range("C2").Value = Application.Round(Range("F1").Value - Range("F2").Value, 2)
Next ws
End Sub
Vielen Dank im Voraus!
Martin
Anzeige