Hallo liebe VBA-Gemeinde,

ich befasse mich nun seit geraumer Zeit mit Excel-VBA und komme mit einem Problem nicht weiter, ich hoffe ihr könnt mir einen Lösungshinweis geben oder einen Tipp wie ich es anders lösen könnte.

Ich habe in Excel zwei Tabellenblätter eins mit der Bezeichnung "Tabelle1" und ein zweites mit "Datensammler" mit dem selben Zeilen und Spaltenaufbau.

Ich möchte nun die eingegebenen Daten aus Sheet "Tabelle1" in das Sheet "Datensammler" kopieren, allerdings soll das Sheet "Tabelle1" nur als Eingabeblatt genutzt werden. Im Datensammler sollen alle Eingaben untereinander gesammelt werden.

Bisher habe ich es nur hinbekommen das mein Makro das Sheet "Tabelle1" komplett in das Sheet "Datensammler" kopiert. Wenn ich jetzt Änderungen am "Tabellenblatt1" vornehme soll das Makro den kompletten Datensatz unter den bestehenden Datensatz in den "Datensammler" kopieren.

Ich möchte das das Makro eine komplette Kopie des Sheets "Tabelle1" unter die bestehenden Daten des Sheets"Datensammler" setzt.
Ich hoffe das versteht hier jemand.



mein bisheriger Code der den "Datensammler" überschreibt lautet:

 

Sheets("Datensammler").Select
letzteZeile = Sheets("Datensammler").Cells(Rows.Count, 1).End(xlUp).Row + 1


Sheets("Tabelle1").Range("B4:B4400").Copy
Sheets("Datensammler").Range("B" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("C4:C4400").Copy
Sheets("Datensammler").Range("C" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("D4:D4400").Copy
Sheets("Datensammler").Range("D" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("E4:E4400").Copy
Sheets("Datensammler").Range("E" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("F4:F4400").Copy
Sheets("Datensammler").Range("F" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("G4:G4400").Copy
Sheets("Datensammler").Range("G" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("H4:H4400").Copy
Sheets("Datensammler").Range("H" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("I4:I4400").Copy
Sheets("Datensammler").Range("I" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("J4:J4400").Copy
Sheets("Datensammler").Range("J" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("K4:K4400").Copy
Sheets("Datensammler").Range("K" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("L4:L4400").Copy
Sheets("Datensammler").Range("L" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("M4:M4400").Copy
Sheets("Datensammler").Range("M" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("N4:N4400").Copy
Sheets("Datensammler").Range("N" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("O4:O4400").Copy
Sheets("Datensammler").Range("O" & letzteZeile).PasteSpecial Paste:=xlValues

Sheets("Tabelle1").Range("P4:P4400").Copy
Sheets("Datensammler").Range("C" & letzteZeile).PasteSpecial Paste:=xlValues


Sheets("Tabelle1").Range("Q4:Q4400").Copy
Sheets("Datensammler").Range("Q" & letzteZeile).PasteSpecial Paste:=xlValue


Sheets("Tabelle1").Range("R4:R4400").Copy
Sheets("Datensammler").Range("R" & letzteZeile).PasteSpecial Paste:=xlValue


Sheets("Tabelle1").Range("S4:S4400").Copy
Sheets("Datensammler").Range("S" & letzteZeile).PasteSpecial Paste:=xlValue

Vielen Dank, ich habe schon sehr lange Foren durchsucht und bin leider nicht fündig geworden.

Maik