Zellen mittels Makro kopieren
16.09.2005 10:09:36
René
Ich habe mal wieder ein Problemchen.
Ich habe 2 Tabellenblätter in einer Exceldatei. Nun sollen die Werte und Formate der Zellen C2 bis C16 aus dem Tabellenblatt Eingabe ins Tabellenblatt Archiv kopiert werden. Und hier fängt das Problem an. Ich möchte, dass die alten Datensätze erhalten bleiben. Das heißt die neuen sollen immer eine Zeile unter die letzte ausgefüllte Zelle geschrieben werden. Mein Code für den CommandButton ist folgender:
Private Sub CommandButton1_Click()
Dim LRow As Integer
LRow = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Eingabe").Range("C2:C16").Copy
With Sheets("Archiv").Range("A" & LRow)
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub
Aber statt eine Zeile unter der letzten anzufangen, überschreibt er die letzte Zeile. So dass diese Werte verloren gehen. Wer kann da helfen?
Zur besseren Übersicht habe ich eine Beispieltabelle auf den Server gestellt.
https://www.herber.de/bbs/user/26639.xls
Vilen Dank im Vorraus für eure schnelle Hilfe.
MfG René
Anzeige