Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA- Externes Blatt kopieren in meine Mappe- Fehler
Normale Version: VBA- Externes Blatt kopieren in meine Mappe- Fehler
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Lucker11

12.04.2021, 09:20
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

12.04.2021, 09:27
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

12.04.2021, 09:29
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

12.04.2021, 09:46
Hallo Max,

na klar. Der Fehler ist ja nicht weg.

Gruß,
Lutz

Kuwer

12.04.2021, 09:52
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

12.04.2021, 10:13
Hallo Uwe,

das funktioniert bei mir leider nicht. 

Lg

schauan

13.04.2021, 17:16
Hallöchen,

was bedeutet
Zitat: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

13.04.2021, 23:03
Hallo 

Zitat: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

14.04.2021, 05:52
Hallo,

(13.04.2021, 23:03)Gast 123 schrieb: [ -> ]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:

Zitat: 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

14.04.2021, 07:55
Hallo Uwe,

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

Gruß,
Lutz
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA- Externes Blatt kopieren in meine Mappe- Fehler