ich benötige mal wieder Eure Hilfe.
Ich öffne über die Funktion GetObject eine Exceldatei und möchte in dieser Datei ein vorhandenes Tabellenblatt kopieren. Leider bekomme ich beim Copy-Befehl immer einen Laufzeitfehler 1004 Die Copy-Methode des Worksheets-Objektes konnte nicht ausgeführt werden.
Hier mein momentanes Testmakro:
Option Explicit
Sub Test()
Dim wkbAuswertdatei As Workbook
Dim intSheets As Integer
Dim wksAuswertdateiNew As Worksheet
Dim strPathGesamtaufstellung As String
Dim strDateiname As String
strPathGesamtaufstellung = "H:\Gesamtaufstellung\2010\"
strDateiname = "16.06.10.xls"
Set wkbAuswertdatei = GetObject(strPathGesamtaufstellung & "\" & strDateiname)
'Falls Blatt aus Vorjahr bereits vorhanden, dieses löschen
For intSheets = wkbAuswertdatei.Sheets.Count To 1 Step -1
If wkbAuswertdatei.Sheets(intSheets).Name = "Sicherung Vorjahr" Then
Application.DisplayAlerts = False
wkbAuswertdatei.Sheets(intSheets).Delete
Application.DisplayAlerts = True
End If
Next
'1. Tabellenblatt kopieren und umbenennen
wkbAuswertdatei.Sheets(1).Copy After:=wkbAuswertdatei.Sheets(Sheets.Count)
Set wksAuswertdateiNew = wkbAuswertdatei.ActiveSheet
wksAuswertdateiNew.Name = "Sicherung Vorjahr"
End Sub
Weiß jemand, was ich an der Stelle falsch mache?
Danke Euch für Eure Hilfe,
Kasimir