Hallo liebe Leute,
ich habe folgendes Problem:
Ich möchte alle Dateien eines Ordners in eine Gesamtdatei kopieren.
Wenn ich also die einzelnen Dateien per VBA aufrufe, scheinen sich die Spalten zu vermischen!
Öffne ich die Dateien allerdings manuell, so haben sie noch das ursprüngliche Format.
Danke vorab für die Hilfe!
Der Code lautet wie folgt:
Sub zusammenfuehren()
Application.ScreenUpdating = False
Dim wbMappe As Workbook
Dim Dateiname, Pfad
Pfad = "F:\Statistische Auswertung TEST\Für Vba Test UV Risk\"
Dateiname = Dir(Pfad & "UVRISK.?.csv")
Do While Dateiname ""
Set wbMappe = Workbooks.Open(Pfad & Dateiname, UpdateLinks:=False)
Range("a4").Select
Range("A4:Q4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("alles.xlsm").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
wbMappe.Close SaveChanges:=False
Kill "F:\Statistische Auswertung TEST\Für Vba Test UV Risk\" & Dateiname
Dateiname = Dir()