Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
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

Excel Daten in anderes Excel Dokument importieren

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

249 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige