Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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!

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
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
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige