Excel Daten in anderes Excel Dokument importieren

Forumthread: Excel Daten in anderes Excel Dokument importieren

03.01.2018 20:12:33

Peter

Hallo zusammen,
ich suche eine VBA Code der folgende Aufgabe löst.
Täglich wird ein Excel Dokument mit neuen Daten und dem selben Dateinamen im selben Ordner neu erstellt bzw. überschrieben. Ich möchte die Daten 1zu1 ab Zeile 2 in ein anderes Excel Dokument übernehmen, dass wiederum inkrementell wächst und die neusten Datensätze immer oben stehen. Bisher habe ich mit dem Recorder einen brauchbaren Code, aber dieser kopiert mir leider auch die leeren Zeilen, weil die Zeilen unterschiedlich befüllt werden. An einem Tag habe ich 10 Datensätze am nächsten Tag nur noch 5 Datensätze. Mit dem VBA Recorder habe ich 15 Zeilen fix ausgewählt. Sicherlich benötige ich eine Schleife, leider hört hier mein Wissen dazu auf. Vielleicht kann mir hier geholfen werden. Vielen Dank.
Mein VBA Code:

Sub Test4()
' Test4 Makro
Range("A2").Select
Workbooks.Open Filename:= _
"C:\Rohdaten\Rohdaten.xls"
Range("A2:I15").Select
Selection.Copy
Windows("Statistik.xlsm").Activate
Selection.Insert Shift:=xlDown
End 

Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Frage

03.01.2018 20:18:50

Werner
AW: Frage

03.01.2018 21:41:43

Peter
AW: Frage

03.01.2018 21:49:12

Werner
AW: Frage

05.01.2018 16:26:44

Peter
AW: Frage

05.01.2018 20:09:34

Werner

Frage

03.01.2018 20:18:50

Werner

Hallo Peter,
Name des Quellblattes und Name des Zielblattes?
Gruß Werner

AW: Frage

03.01.2018 21:41:43

Peter

Hallo Werner,
danke für die schnelle Antwort.
Quell- und Zielblattes sind jeweils Tabelle1.
Quelle:
Rohdaten.xls Blatt: Tabelle1
Ziel:
Statistik.xls Blatt Tabelle1

AW: Frage

03.01.2018 21:49:12

Werner

Hallo Peter,
ungetestet:

Sub Test4()
Dim loLetzte As Long
Workbooks.Open Filename:="C:\Rohdaten\Rohdaten.xls"
With Workbooks("Rohdaten.xls").Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 1), .Cells(loLetzte, 9)).Copy
Workbooks("Statistik.xlsm").Worksheets("Tabelle1").Range("A2").Insert Shift:=xlDown
Application.CutCopyMode = False
End With
End Sub

Gruß Werner

AW: Frage

05.01.2018 16:26:44

Peter

Hallo Werner,
heute konnte ich es endlich testen. Vielen Dank für den Script und es ist fast Perfekt! Lässt sich es sich noch einrichten, dass die Datei Rohdaten.xls wieder geschlossen wird? Bisher wird mit dem Macro die Datei geöffnet und bleibt auch im Vordergrund stehen.
Grüße Peter

AW: Frage

05.01.2018 20:09:34

Werner

Hallo Peter,
aber klar doch:

Sub Test4()
Dim loLetzte As Long
Workbooks.Open Filename:="C:\Rohdaten\Rohdaten.xls"
With Workbooks("Rohdaten.xls").Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 1), .Cells(loLetzte, 9)).Copy
Workbooks("Statistik.xlsm").Worksheets("Tabelle1").Range("A2").Insert Shift:=xlDown
Application.CutCopyMode = False
.Close False
End With
End Sub

Datei wird ohne Speichern geschlossen.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Excel Daten in anderes Excel Dokument importieren

Forumthread: Excel Daten in anderes Excel Dokument importieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread