Tabelle mit Leerzellen kopieren

Question

Hallo,
für ähnliche Probleme gibt es mehrere Lösungen, die aber nicht mit meiner Tabelle funktionieren. Es soll der Bereich B6:K677 in Tabelle 1 nach Tabelle 2 kopiert werden. In der Spalte B steht das jeweilige Tagesdatum und in den Spalten C bis K die Messwerte. Jede Woche sollen nun der Bereich B6:K677 nach Tabelle 2 an die erste freie Zeile kopiert werden. Die Schwierigkeit ist dabei, das das Datum nur einmal zu jeden der 96 Tageswerte erscheint , also in Zelle B6, B102, B198 usw.
Hat jemand eine Idee wie man das lösen kann ( Makro ) ?
Zum besseren Verständnis hier die Beispieldatei:
http://www.file-upload.net/download-1915239/Beispiel.xls.html
Gruß porter

Answer 1

Hallo Porter,

das sollte mit nachfolgendem Makro funktionieren.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Kopieren()
Dim lngFirstRow As Long
lngFirstRow = Sheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
Sheets("Tabelle1").Range("B6:K677").Copy Sheets("Tabelle2").Cells(lngFirstRow, 2)
End Sub

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Oliver,
deine Antwort hat das Problem gelöst. Ich habe nicht damit gerechnet so schnell eine Lösung zu bekommen. Auch wenn ich das Makro nicht verstehe, vielen vielen Dank für deine Antwort und eine schöne Woche.
Mfg
porter

Answer 3

Hallo Porter,

gerne geschehen. Danke auch für die Rückmeldung.

Das Makro sucht in Tabelle2 in Spalte C die erste freie Zelle und kopiert dann die Daten aus Tabelle1 dort hinein.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]