Fehler in Formel (Laufzeitfehler)
12.01.2007 19:42:08
Pascal
Ich habe ein Problem mit folgender Formel:
Sub Kopiermakro()
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Set WS1 = Workbooks("Forecast Zusammenzug.xls").Worksheets("Q1 2007")
Set WS2 = Workbooks("BEL Forecast.xls").Worksheets("Q1 2007")
Set WS3 = Workbooks("PAB Forecast.xls").Worksheets("Q1 2007")
WS2.Range("A4:W87").Copy WS1.Range("A4")
WS3.Range("A4:W87").Copy WS1.Range("A88")
WS2.Range("Y4:Y87").Copy WS1.Range("Y4")
WS3.Range("Y4:Y87").Copy WS1.Range("Y88")
WS2.Range("AE4:AE87").Copy WS1.Range("AE4")
WS3.Range("AE4:AE87").Copy WS1.Range("AE88")
End Sub
Beim ausführen (Alle 3 Dateien habe ich aber geöffnet) kommt die Meldung:
Laufzeitfehler '9':
Index ausserhalb des gültigen Bereichs
Und wenn ich auf Debuggen gehe zeigt es mir Gelb markiert:
Set WS1 = Workbooks("Forecast Zusammenzug.xls").Worksheets("Q1 2007")
Was muss ich ändern, dass das Makro funktioniert?
Bin über jede Hilfe sehr dankbar und bedanke mich schon jetzt im Voraus.
Gruss
Pascal