Zeileninhalt kopieren, löschen und woanders einfügen

[StefanB]

Hallo Excel-Freunde,

ich habe folgende Herausforderung:
es sollen ZeilenINHALTE kopiert, dann gelöscht und anschließend in ein neues Blatt in die nächste freie Zeile eingefügt werden. Aktuell habe ich einen Button in eine UserForm gebastelt mit folgenden Code:

Code:

Private Sub CommandButtonAblegen_Click()
Dim zeilenanzahl As Long, gewzeile As Long
zeilenanzahl = Sheets("Archiv").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
gewzeile = ActiveCell.Row
Range(Rows(gewzeile), Rows(gewzeile)).Copy Destination:=Sheets("Archiv").Cells(zeilenanzahl, 1)
Range(Rows(gewzeile), Rows(gewzeile)).ClearContents
Selection.Delete Shift:=xlUp
End Sub

Allerdings schneidet dieser die Zeile gänzlich aus und fügt Sie in mein Archiv ein. Somit verkleinert sich aber meine vorformatierte Ausgangstabelle um genau diese Zeile. Das soll so nicht sein. Kann mir jemand den Code entsprechend ändern?

Ich danke Euch!!
Grüße StefanAusB

[Lutz Fricke]

Hallo Stefan,

lass einfach folgende Zeile weg:

Code:

Selection.Delete Shift:=xlUp

Gruß,
Lutz

[StefanB]

MEGA!!! Passt So einfach kann´s manchmal sein.
Schöne kurze Woche noch  

Grüße

[StefanB]

Moin @all,

ich hab noch eine kurze Frage zum o.g. Thema. Kann man beim Zeile verschieben auch nur die angezeigten Werte verschieben. Also ohne Formeln. Aktuell wird alles übernommen was in den jeweiligen Zellen drinsteht, auch die Formeln. Problem dabei ist, dass die Formeln nun den Bezug zum ursprünglichen Tabellenblatt haben. Dementsprechend zeigen sie falsche Werte an    Siehe Anhang.
Vielen Dank schon mal im Voraus.

[Lutz Fricke]

Hallo Stefan,

probier mal:

Code:

Range(Rows(gewzeile), Rows(gewzeile)).Copy
Sheets("Archiv").Cells(zeilenanzahl, 1).PasteSpecial Paste:=xlPasteValues

Ist ungetestet...

Gruß,
Lutz

[schauan]

Hallöchen,

habe jetzt nicht in Deine Datei geschaut.

Im Prinzip machst Du das mit
...PasteSpecial Paste:=xlValues

Willst Du Werte und Formate haben, wäre es ein weiterer Schritt
...PasteSpecial Paste:=xlValues
...PasteSpecial Paste:=xlFormats

Die genaue / komplette Syntax kann man übrigens auch aufzeichnen

[StefanB]

Und wieder einmal: TOP!!!! Danke