richtige Schreibweise für Makro
07.03.2005 22:13:57
Gerold
ich habe mir ein Makro geschrieben (bzw. ich versuche es).
Dieses Makro soll einen Wert (L2) der sich bei jedem Durchlauf (i to z) ändert,
kopieren und eine Zeile (L4,L5,L6 usw.)tiefer eintragen.
Wer kann mir bei der richtige Lösung behilflich sein.
***************************************************************************
Sub alle_Jahre()
Dim i As Integer
Dim b As Integer
Dim z As Integer
b = Range("Steuerjahr").Value
z = Range("zähler_Jahre").Value
For i = 0 To z
Range("Steuerjahr").Value = b
Range("Differenz_neu_alt").Copy 'Differenz_neu_alt ist die Zelle L2
Range("L4").Select ' Hier soll der Wert aus Zelle L2 immer um eine Zeile tiefer eingetragen werden.
Selection.PasteSpecial Paste:=xlValues
b = b + 1
i = i + 1
Next i
Application.CutCopyMode = False
Range("Steuerjahr").Value = Range("erstes_Jahr").Value
End Sub
***************************************************************************
Im Voraus schon mal besten Dank.
Gruß
Gerold Dornbusch
Anzeige