Zeile verschieben und obere Zeile lösche
18.11.2020 14:52:31
Ahmoo
Ich habe folgendes Anliegen. Ich möchte in Zeile Z1 die Zellen von 40 bis 2222-11111 markieren und dann durch ein vba, was ich geschrieben habe, in die Zeile darunter Z2 verschieben. Danach soll der Cursor wieder zur nächsten Z1 Zeile. Das konnte ich soweit machen. Was mir aber fehlt ist, dass dabei die Zeile Z4 gelöscht werden soll. Das bekomme ich irgendwie nicht hin und bitte um Hilfe. Alles soll so bleiben wie es ist lediglich soll Z4 gelöscht werden damit ich die Tabelle so runter weiter arbeiten kann. Sind 50.000 Zeilen.
Mein Code:
Sub Zeilen_einfügen()
Selection.Cut Destination:=Selection.Offset(1, 0)
Selection.Offset(4, 0).Select
End Sub
Z1 40 7777777200 5.000,00 077777700 2222-11111
Z2 Leerzeile
Z3 40 3203333200 60072,00 899898900 3333-22222
Z4 Leerzeile
Z1 40 8905555500 4.444,44 767676600 0555-66666
Z2 Leerzeile
Z3 40 3434343400 88888,52 454554500 6666-77777
Z4 Leerzeile
Viele Güße
Ahmo