Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen in ein anders Tabellenblatt kopieren

Zellen in ein anders Tabellenblatt kopieren
24.08.2005 10:47:49
René
Hallo,
mein Problem ist folgendes:
Ich möchte mittels eines CommandButtons die Zellen A1:C6 des Tabellenblattes "Eingabe" in ein das Tabellenblatt "Archiv" kopieren. Die Zellen sollen fortlaufend eingefügt werden, so dass die alten Werte erhalten bleiben. Alles eine Datei.
Dazu habe ich folgenden Code für den CommandButton geschrieben:

Private Sub CommandButton1_Click()
Sheets("Eingabe").Select
Range("A1:C6").Select
Selection.Copy
Sheets("Archiv").Select
ActiveSheet.Paste
End Sub

Der Haken ist das jtzt die alten Werte immer wieder überschrieben werden. Was muß ich ändern das diese immer den alten Archiveinträgen nachgestellt werden?
Im Vorraus schon mal Dankeschön!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen in ein anders Tabellenblatt kopieren
24.08.2005 11:00:52
Harald
Hallo Rene,
hier mein Vorschlag.

Private Sub CommandButton1_Click()
Dim LRow As Integer
'letzte gefüllte Zelle in Spalte A von Blatt Archiv
LRow = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
'ist das die erste Zeile dann nimm die zweite, sonst eine Leerzeile
If LRow = 1 Then LRow = 2 Else LRow = LRow + 2
'kopieren
Sheets("Eingabe").Range("A1:C6").Copy Sheets("Archiv").Range("A" & LRow)
End Sub

Gruß
Harald
Anzeige
AW: Zellen in ein anders Tabellenblatt kopieren
24.08.2005 13:16:00
René
Super!!!
Es hat alles geklappt. Danke Harald.
Gruß René
Danke für Rückmeldung o.w.T
24.08.2005 13:27:23
Harald
Harald
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige