VBA- Externes Blatt kopieren in meine Mappe- Fehler

[Lucker11]

Hallo zusammen,

ich rufe in meinem VBA Programm eine andere Arbeitsmappe auf, kopiere den Inhalt des Blatts und füge es bei mir ein. Da alles mit dem Code:

Code:

Sheets("MC05").Cells.Delete
Quelldatei = ThisWorkbook.Path & "\M05.xls"
       Workbooks.Open Quelldatei, ReadOnly:=True
       ActiveWorkbook.Sheets(1).UsedRange.Copy
       ThisWorkbook.Sheets("M05").Cells(1, 1).PasteSpecial xlPasteValue 'All verändert den Fehler auch nicht
       Application.DisplayAlerts = False
       ActiveWorkbook.Close
       Application.DisplayAlerts = True

Wenn ich jetzt einen Blick in meine Arbeitsmappe werfe, sind dort alle Zahlen mit einem grünen Dreieck versehen. In der Arbeitsmappe, aus der ich kopiert habe, ist allerdings alles normal. Woran liegt das? Wie bekomme ich diese Fehlermeldungen wieder weg?

Liebe Grüße
Max

[Lutz Fricke]

Hallo Max,

wahrscheinlich ist  bei deiner Vorlage die Fehlerüberprüfung im Hintergrund eingeschaltet.

Die kannst Du per Makro mit

Code:

    Application.ErrorCheckingOptions.BackgroundChecking = False

ausschalten.

Gruß,
Lutz

[Lucker11]

Hallo Lutz,

vielen Dank erstmal für die Antwort, es funktioniert auch, aber wenn ich am Ende meines Programm diese Überprüfung wieder einschalte, dann sind die Fehler aber wieder da, oder? 

Lg

---

Ich habe gerade gesehen, dass der Fehler nicht mehr da ist, wenn ich die Zelle mit 1 multipliziere, damit könnte ich leben, wenn es keine bessere Option gibt

[Lutz Fricke]

Hallo Max,

na klar. Der Fehler ist ja nicht weg.

Gruß,
Lutz

[Kuwer]

Hallo Max,

aus

Code:

       ActiveWorkbook.Sheets(1).UsedRange.Copy
       ThisWorkbook.Sheets("M05").Cells(1, 1).PasteSpecial xlPasteValue 'All verändert den Fehler auch nicht

wird

Code:

       ActiveWorkbook.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("M05").Cells(1, 1)

Gruß Uwe

[Lucker11]

Hallo Uwe,

das funktioniert bei mir leider nicht. 

Lg

[schauan]

Hallöchen,

was bedeutet

das funktioniert bei mir leider nicht.

Geht gar nix, sind "nur" die grünen Dreiecke noch da, kommt was falsches raus, kommen Fehlermeldungen, ...

[Gast 123]

Hallo 

wenn ich die Zelle mit 1 multipliziere,      da ist der Fehler doch klar erkannt worden!!

Sorry Kollegen, ich glaube ihr habt diesen Nachtrag übersehen.  Bei mir klingelt es da recht HEFTIG im Kopf!
Fehlerbeseitigung mit "*1" heisst für mich im Klartext, in deiner QUELLDATEI stehen Zahlen die Excel als Text sieht!
Führe diese "*1" Prozedur bitte mal in deiner Quelldatei durch, und schau dir dann das Kopier Ergebnis an.

mfg Gast 123

---

Nachtrag:  Optisch mögen sie wie Zahlen aussehen, aber wenn es wirklich Text ist kann Excel damit nichts berechnen.
Könntest du auch in der Quelldatei mal prüfen ob sich alle Zahlen zum Berechnen eigenen?  Wenn nicht ... Fall gelöst!

[Kuwer]

Hallo,

Könntest du auch in der Quelldatei mal prüfen ob sich alle Zahlen zum Berechnen eigenen?  Wenn nicht ... Fall gelöst!

in der Eröffnungsfrage steht:

In der Arbeitsmappe, aus der ich kopiert habe, ist allerdings alles normal. Woran liegt das? Wie bekomme ich diese Fehlermeldungen wieder weg?

Gruß Uwe

[Lutz Fricke]

Hallo Uwe,

das kann doch aber auch gut aussehen, weil die Fehlerprüfung in dieser Datei ausgeschaltet ist, oder?

Gruß,
Lutz