Clever-Excel-Forum

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

Hallo Stefan,

lass einfach folgende Zeile weg:

Code:
Selection.Delete Shift:=xlUp

Gruß,
Lutz

MEGA!!! Passt Blush

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

Grüße

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 Huh

Siehe Anhang.
Vielen Dank schon mal im Voraus.

Hallo Stefan,

probier mal:

Code:
Range(Rows(gewzeile), Rows(gewzeile)).Copy

Sheets("Archiv").Cells(zeilenanzahl, 1).PasteSpecial Paste:=xlPasteValues

Ist ungetestet...

Gruß,
Lutz

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

Und wieder einmal: TOP!!!! Danke

StefanB

Lutz Fricke

StefanB

StefanB

Lutz Fricke

schauan

StefanB