tabellendaten zusammenführen
20.02.2014 08:46:58
Erwin
kann mir jemand bitte weiterhelfen, ich komm einfach nicht mehr weiter.
Ich habe mehrere Exceldateien und möchte jeweils daraus aus der Tabelle
"Auswertung" die Daten der Spalten A:E in eine Gesamtdatei (im gleichen Verzeichnis)
übertragen. Die Daten in den Quelldateien sind unterschiedlich lang und
haben auch noch Leerzeilen dazwischen.
Ich habe es mithilfe dieses Forums schon soweit gebracht, dass ich über
einen Dialog die Datei(en) auswählen kann die ich brauche und daraus
die Daten kopieren kann. Das Ganze soll in einer For..Next Schleife ablaufen.
Das habe ich bereits geschafft:
Sub daten_gesamt()
Dim i As Integer
Dim DatOP As Variant
'Arbeitsmappe(n) markieren und öffnen, Daten kopieren und in Gesamtdatei einfügen
i = 0
ChDrive "D:\"
ChDir "D:\Eigene Dateien...."
DatOP = Application.GetOpenFilename("Excel-Dateien(*.xls),*.xls", MultiSelect:=True)
If IsArray(DatOP) Then
For i = LBound(DatOP) To UBound(DatOP)
Workbooks.Open DatOP(i)
With Sheets("Auswertung")
.Range(.Cells(3, 1), .Cells(Rows.Count, 1).End(xlUp)).Resize(, 5).Copy
---Hier komm ich nicht mehr weiter: Wie kann ich jetzt die Kopie in die
Gesamtdatei übertragen, wieder zurück, Datei schließen und dann über
Next i wieder die nächste öffnen und die kopierten Daten in der Gesamtdatei
dranhängen usw.--
End With
Next i
Else
MsgBox "Es wurde keine Excel-Arbeitsmappe ausgewählt"
End If
End
Sub
Wäre super, wenn mir jemand weiterhelfen könnte, bin schon
ein bisschen am Verzweifeln.
Schöne Grüße
Erwin