Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
16.10.2025 17:25:38
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige