Supportnet / Forum / Tabellenkalkulation
Makro - neue Zeile einfügen
Frage
Hallo Zusammen
Ich möchte das Makro unten so abändern, dass die es den Text der Spalte A-F löscht und von der Spalte G-xxx die Formeln übernimmt! Momentan macht es das nur mit der Spalte A!!
Könnt ihr mir bitte helfen!!
Besten Dank!
Pädi
Sub Kopieren_mit_Formeln()
Dim lZeile As Long
lZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rows(lZeile - 2).Copy
Cells(lZeile - 1, 1).Insert Shift:=xlDown
Application.CutCopyMode = False
' Eingabezellen löschen
Cells(lZeile - 1, 1) = ""
End Sub
Antwort 1 von Guenter
Hallo Pädi,
Dein Makro macht bei mir folgendes:
Es sucht in Spalte A die letzte "gefüllte" Zeile, lZeile.
Die Zeile lZeile-2 wird kopiert und bei lZeile-1 wieder eingefügt, indem die vorhandenen Zeilen nach unten verschoben werden. Danach wird lZeile-1 auf leer gesetzt.
Irgendwie kann ich den Sinn davon noch nicht entdecken.
Um Deine Anfrage zu beantworten, brauche ich noch etwas mehr Infos:
Sollen Spalten A-F komplett gelöscht werden??
Was passiert mit Spalten G-xxx? Wohin sollen die Formeln kopiert werden?
Gruß
Günter
Dein Makro macht bei mir folgendes:
Es sucht in Spalte A die letzte "gefüllte" Zeile, lZeile.
Die Zeile lZeile-2 wird kopiert und bei lZeile-1 wieder eingefügt, indem die vorhandenen Zeilen nach unten verschoben werden. Danach wird lZeile-1 auf leer gesetzt.
Irgendwie kann ich den Sinn davon noch nicht entdecken.
Um Deine Anfrage zu beantworten, brauche ich noch etwas mehr Infos:
Sollen Spalten A-F komplett gelöscht werden??
Was passiert mit Spalten G-xxx? Wohin sollen die Formeln kopiert werden?
Gruß
Günter