Datei mit Bezügen zu nicht gespeicherten Dateien
19.06.2018 08:59:58
Domi
ich habe ein Problem mit der Meldung: "Datei mit Bezügen zu nicht gespeicherten Dateien speichern"
Hintergrund:
In meinem VBA Programm übertrage ich ein paar Zellen von einer Arbeitsmappe (1) in eine andere (2).
Seit kurzem erscheint die oben genannte Meldung. Diese erscheint nur wenn ich die Arbeitsmappe (2) per Makro speichere. (Manuelles speichern der Mappe funktioniert ohne der Meldung).
Ich vermute dass es was mit dem Copy Paste Format zu tun hat, komme aber selber nicht drauf.
Hier meine Vorgehensweise:
Zuerst kopiere ich in Mappe (1) einen Bereich:
Range("N3:AL4").Select
With Selection.Font
.Size = 10
End With
Selection.Copy
Dann füge ich ihn in der Mappe(2) ein:
Workbooks.Open "[Pfad]\Test - Pareto.xlsm"
Workbooks("Test - Pareto.xlsm").Sheets("DatenerfassungRO").Activate
Workbooks("Test - Pareto.xlsm").Worksheets("DatenerfassungRO").Range("AB10").Select
ActiveSheet.Paste
Soweit hat es früher immer ohne Meldung funktioniert. Vor kurzem wollte ich einen weiteren Bereich rüber kopieren und dieser hat aus Dropdownmenüs Ergebnisse gezogen.
Damit nicht das Dropdown Menü gezogen wir habe ich den Befehl PasteSpecial benutzt:
Copy:
Range(Cells(10, 14), Cells(dk, 20)).Copy
und Paste:
Workbooks.Open "[Pfad]\Test - Pareto.xlsm"
Worksheets("Fehleranalyse").Activate
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Seitdem ich das Programm erweitert habe kommt diese Meldung.
Hat das was mit meinem Code zu tun oder ist das ein ganz anderes Problem?
Vielen Dank für eure Hilfe!!!
Anzeige