ich habe ein kurioses Problem:
Ich habe ein Makro geschrieben, mit dem ich eine Reihe von Excel-Listen innerhalb unseres Netzwerks nacheinander öffne, den Inhalt kopiere und ihn dann in die dafür vorgesehenen Blätter der Mappe einfüge, in der sich auch das Makro befindet.
Das funktionierte super, bis ich in den Excel-Dateien, die ich da auslese, Formeln eingefügt habe, die sich auf Tabellen beziehen...
Seitdem kriege ich - sobald ich das Makro starte - unzählige Fehlermeldungen über "fehlende Verknüpfungen".
Hatte schon den Copy_Destination-Befehl in Verdacht, aber mit Copy-PasteValues passiert dasselbe.
Hier der Code (Variablen sind alle vorher deklariert):
Application.ScreenUpdating = False
TestAnzahl = Worksheets("System2").Range("A65536").End(xlUp).Row
' Das ist ein Arbeitsblatt, in dem die Pfade liegen
For ZählerC = 1 To TestAnzahl
Name = Sheets("System2").Cells(ZählerC, 1)
Datei = Sheets("System2").Cells(ZählerC, 2)
kürzel = "C/" & Datei & ".xlsx"
' habe den Pfad verkürzt; in ECHT ist der länger :-)
Set QuelleDA = Workbooks.Open(kürzel)
Set ZielHIER = ThisWorkbook 'Die Mappe, in der der Code liegt
QuelleDA.Sheets("Tabelle1").Range("A1:Z500").Copy _
Destination:=ZielHIER.Sheets(Name).Range("A1:Z500")
' wie gesagt: SO hatte ich dasselbe Problem
' QuelleDA.Sheets("Tabelle1").Range("A1:Z500").Copy
' ZielHIER.Sheets(Name).Range("A1:Z500").PasteSpecial Paste:=PasteValues
QuelleDA.Close SaveChanges:=False
Set QuelleDA = Nothing
Set ZielHIER = Nothing
Next ZählerC
Application.ScreenUpdating = True