Hi,
ich bin am verzweifeln.
Ständig erhalte ich den Laufzeitfehler 9 "Index außerhalb des gültigen Bereichs". Und das in einem Stück Code, das ich aus einem funktioniernden Makro kopiert habe.
Hier eine Zusammenfassung der Situation:
Ich schreibe für Excel mit VBA ein MAkro, das zwei Arbeitsmappen öffnet und die Arbeitblätter aus beiden in einer dritten zusammenführt.
Das Öffnen funktioniert jetzt bestens. Aber sobald ich anfange, bzw. anfangen will, die Arbeitsblätter zu kopieren tritt der Laufzeitfehler auf.
Hier ein paar Code-Stücke:
Wie ihr euch sicher denken könnt stammt dies aus einer For-Schleife. Dachte zunächst auch es könnte am Index liegen. Habe es dann so versucht:
Und dann tritt der Fehler an der Stelle auf, an der das Workbook ausgewählt werden soll. Muss also an der Art liegen, wie ich den Befehl aufschreibe, oder daran, dass er den Dateinamen nicht erkennt. Beim Debuggen zeigte die Variable aber den richtigen Dateinamen an.
Wenn noch weitere Fragen sind, die euch helfen mir zu helfen nur her damit. Vieleicht bringen mich ja auch die richtigen Fragen auf die Spur dieses Geheimnisses.
ulki
ich bin am verzweifeln.
Ständig erhalte ich den Laufzeitfehler 9 "Index außerhalb des gültigen Bereichs". Und das in einem Stück Code, das ich aus einem funktioniernden Makro kopiert habe.
Hier eine Zusammenfassung der Situation:
Ich schreibe für Excel mit VBA ein MAkro, das zwei Arbeitsmappen öffnet und die Arbeitblätter aus beiden in einer dritten zusammenführt.
Das Öffnen funktioniert jetzt bestens. Aber sobald ich anfange, bzw. anfangen will, die Arbeitsblätter zu kopieren tritt der Laufzeitfehler auf.
Hier ein paar Code-Stücke:
Code:
Workbooks("" & DateiNameNeu & "").Worksheets(SheetAnzNeu - i).Copy _
Befor:=Workbooks("" & DateiNameArbeit & "").Worksheets(1)
Wie ihr euch sicher denken könnt stammt dies aus einer For-Schleife. Dachte zunächst auch es könnte am Index liegen. Habe es dann so versucht:
Code:
Index = SheetAnzAkt - i
Workbooks("DateiNameAkt").Select
Worksheets(Index).Copy Befor:=Workbooks("" & DateiNameArbeit & "").Worksheets(1)
Wenn noch weitere Fragen sind, die euch helfen mir zu helfen nur her damit. Vieleicht bringen mich ja auch die richtigen Fragen auf die Spur dieses Geheimnisses.
ulki