Hallo,

ich habe eine Auswertung.xlsm Datei. In diese möchte ich aus einer auswählbaren Datei Daten herüberkopieren. Diese Dateien sind immer im .xls-Format. Jetzt habe ich das Problem, dass beim Öffnen der Datei über das Makro bei Kommazahlen mit >15 Stellen das Komma fehlt. Somit werden auch durch den Kopiervorgang die falschen Daten übernommen. Komisch an der Sache ist auch, dass Daten mit Null Komma +14 Nachkommastellen richtig bleiben und erst die Daten mit Eins Komma + 14 Nachkommastellen fehlerhaft sind.

Sub Copy1()
datei = Application.GetOpenFilename()
If datei = False Then Exit Sub
Workbooks.Open datei

ActiveWorkbook.ActiveSheet.Range("A330:5000").Copy _
Destination:=ThisWorkbook.Worksheets("Tabelle1").Range("A6:B4676")

End Sub

Das Problem tritt immer beim Öffnen auf, nicht beim Kopieren. Liegt das an xlsm/xls ?

Ich hoffe ihr könnt mir helfen.

Danke schonmal