VBA - Excel verändert Werte beim Kopieren aus externem Blatt

[Lucker11]

Hallo zusammen,

ich habe folgendes Problem. Ich öffne in meinem VBA Programm ein anderes Tabellenblatt und kopiere es einfach in mein aktuelles Blatt. Dabei werden komischerweise manche Werte verändert. Z.b. wird eine 47 immer zur 47000, aber bei anderen Werten übernimmt er sie komplett.

Mein Code zum Einladen sieht so aus:

Code:

Sheets("M0005").Cells.Delete
Quelldatei = ThisWorkbook.Path & "\Best\M0005.xls"
       Workbooks.Open Quelldatei, ReadOnly:=True
       ActiveWorkbook.Sheets(1).UsedRange.Copy
       ThisWorkbook.Sheets("M0005").Cells(1, 1).PasteSpecial xlPasteValues
       Application.DisplayAlerts = False
       ActiveWorkbook.Close
       Application.DisplayAlerts = True

Hat jemand vielleicht schonmal ein ähnliches Problem gehabt?

Liebe Grüße und danke im Vorraus,
Max

[Gast 123]

Hallo

ich rate einfach mal auf gut Glück...  Könnte es vielleicht am Zellenformat liegen? 
Was passiert wenn du zum Testen statt xlPasteValues den Befehl xlPasteAll benutzt? İst der Fehler dann weg?

mfg Gast 123