richtige Schreibweise für Makro

Bild

Betrifft: richtige Schreibweise für Makro von: Gerold Dornbusch
Geschrieben am: 07.03.2005 22:13:57

Hallo und guten Abend Forum,

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
Bild


Betrifft: AW: richtige Schreibweise für Makro von: Ramses
Geschrieben am: 07.03.2005 22:26:11

Hallo

probiers mal so

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
    Cells(i + 4, 12).PasteSpecial Paste:=xlValues
    b = b + 1
Next i
Application.CutCopyMode = False
Range("Steuerjahr").Value = Range("erstes_Jahr").Value
End Sub


Gruss Rainer


Bild


Betrifft: AW: richtige Schreibweise für Makro von: Gerold Dornbusch
Geschrieben am: 07.03.2005 22:46:22

Hallo Rainer,

vielen Dank für die schnelle Antwort.
Es funktioniert einwandfrei.

Vielen Dank und gute Nacht.

Gruß
Gerold Dornbusch


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zahlen in Zeit umwandeln"