Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1464to1468
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
Inhaltsverzeichnis

Datenblatt archivieren

Datenblatt archivieren
04.01.2016 13:36:34
Maik
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenblatt archivieren
04.01.2016 14:19:24
Sepp
Hallo Maik,
du prüfst die letzte Zeile in Spalte A, fügst dann aber nur Daten ab Spalte B ein.
Und warum jeden Bereich separat?

With Sheets("Datensammler")
letzteZeile = .Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Tabelle1").Range("B4:S4400").Copy
.Range("B" & letzteZeile).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Gruß Sepp

AW: Datenblatt archivieren
04.01.2016 14:27:41
Maik
Hallo Sepp,
vielen Dank der Code funktioniert so wie ich mir das vorgestellt habe.
Ich habe es erst über UsedRange versucht bis zur zuletzt beschriebenen Zeile zu kopieren, bin daran aber verzweifelt und hab mich dann über die 4.-4400.Zeile .Copy Version gerettet.
Wenn du mir mit der UsedRange helfen könntest wäre das natürlich ein Traum.
vielen vielen Dank schon mal!
Maik

Anzeige
AW: Datenblatt archivieren
04.01.2016 14:40:54
Sepp
Hallo Maik,
lade dazu am besten ein aussagekräftiges Beispiel hoch. Die Daten sollten so im Blatt stehen, wie im Original. Gibt es im Datenbereich eine Spalte die immer gefüllt ist?
Gruß Sepp

AW: Datenblatt archivieren
04.01.2016 15:20:52
Maik
Eigentlich sind alle Zeilen von B-S immer gleichmäßig über eine Userform gefüllt.
Wenn Spalte B nicht gefüllt ist sind die anderen Spalten auch nicht gefüllt.
Ich hoffe die Information hilft dir weiter.
Gruß und dank
Maik

Anzeige
AW: Datenblatt archivieren
04.01.2016 15:24:49
Sepp
Hallo Maik,
dann sollte das genügen.
Sub kopieren()
Dim rng As Range
Dim lngLast As Long

With Sheets("Tabelle1")
  lngLast = Application.Max(4, .Cells(.Rows.Count, 2).End(xlUp).Row)
  Set rng = .Range("B4:S" & lngLast)
End With

With Sheets("Datensammler")
  lngLast = .Cells(Rows.Count, 2).End(xlUp).Row + 1
  rng.Copy
  .Range("B" & lngLast).PasteSpecial Paste:=xlValues
End With

Application.CutCopyMode = False
Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Datenblatt archivieren
04.01.2016 15:30:28
Maik
Vielen Dank..so funktioniert es einwandfrei!
Du bist der beste!
Maik

AW: Datenblatt archivieren
04.01.2016 17:44:40
gast
Wäre dann nett, wenn du im anderen Forum auch postest, dass es gelöst ist und wie!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige