Könnte bitte eure Hilfe gebrauchen
habe folgenden Code von Rudi bekommen
Sub aaa()
Dim sFile As String, n As Integer, wkb As Workbook, arrFiles, iFiles As Integer
Const sPfad As String = "c:\test\"
arrFiles = Array("aaa*.xls", "bbb*.xls")
For iFiles = 0 To UBound(arrFiles)
sFile = Dir(sPfad & arrFiles(iFiles))
Do While sFile ""
n = n + 1
Set wkb = Workbooks.Open(sPfad & sFile)
wkb.Sheets(1).Range("A1:O5000").Copy ThisWorkbook.Sheets(n).Range("A1")
wkb.Close False
sFile = Dir
Loop
Next
If n
Er kopiert Dateien in meine Mappe.Funktioniert auch prima, bis auf die Formate. Z.B. macht er aus der Zahl 1.800 = 1,8
Auch werden ganze Spalten, die in der Quelldatei als Zahl formatiert sind, als Text formatiert.
Wenn ich die Dateien aber ohne das Makro (einzeln per Hand) einlese klappt's.
Ich kann mir das mit dem Punkt und Komma nicht erklären, und komme trotz Archiv nicht weiter.
Es würde mich freuen wenn sich jemand dem Problemchen annehmen könnte.
Vielen Dank schon mal im Voraus
Gruß Joachim