HELP Zeilen löschen / einfügen per VBA

[si...@rz-online.de]

Hallo

kann mir jemand verraten wie ich per VBA Zeilen kopieren kann diese darunter
einfügen und das nur wenn es einen 29. Februar gibt.
Genauso soll er dann wenn das nächste Jahr anbricht diese Zeile löschen,
damit die Berechnung des 1. März nicht falsch ist.
und keine leere Zeile ausgegeben wird.

In meiner Tabelle werden alle Daten abhängig vom 1. Januar errechnet. Die
Tabelle enthält ein komplettes Jahr.

Marco Göbenich

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own

[Bernd Held]

Hallo MArco,
Du kannst Dir folgende MAkros auf Deine Bedürfnisse zurecht biegen.
Sub ZeilenLöschen()
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = 1 _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub

Sub ZeilenEinfügen()
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = 2 _
Then Selection.EntireRow.Insert: ActiveCell.Offset(2, 0).Select _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub

Viele Grüße
Bernd

si...@rz-online.de schrieb: