Werte akualisiern Fester nach Kopieren unterbinden
15.01.2009 09:32:00
Horst
Ich habe ein Makro geschrieben wo ich von einem Workbook in ein anderes die Inhalte eines Sheets kopiere.
Nun sind in dem zu kopierendem Sheet noch verweise auf ein anderes *.xls vorhanden. Wenn ich die Inhalte per Makro wieder einfügen will, kommt erst ein Auswahlfenster Werte aktualisieren, wo ich eine Datei wählen soll, um die Werte zu aktualisieren, dieses ich erst mit abbrechen bestätigen muss bevor es weiter geht.
Kann ich nun irgendwie verhindern, das dieses Fenster erscheint?
---- mein makro ----------------
Sub openAndCopyExcelSheet()
Dim fileNameToOpen As String
fileNameToOpen = "\zuoeffnende.xls" ' Dateiname ist anzupassen
Workbooks.Open Filename:=ThisWorkbook.Path & fileNameToOpen, _
UpdateLinks:=0
Workbooks.Open Filename:=ThisWorkbook.Path & fileNameToOpen, _
UpdateLinks:=0
'kopiereDatenAusDatei
Windows("fileNameToOpen.xls").Activate ' Datei Akivieren
Cells.Select
Range("A1150").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("20090115.xls").Activate
Sheets("Tabelle1").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
End Sub
------------------------mein Makro Ende m-----------------------------
Viele Grüße
Horst
Anzeige