insertlines Workbook_Open Prozedur
von: Reiner
(adsbygoogle = window.adsbygoogle || []).push({});
Geschrieben am: 27.01.2003 - 15:27:53
Hallo,mit nachfolgendem Code will ich in ein mittels copy neu erstelltes Workbook eine Workbook_Open Prozedur einfügen.Die Ausführung aus der Entwicklungsumgebung läuft ohne Fehler.Bei Aufruf von Excel selbst kommt es zum Fehler:Laufzeitfehler '9':Index außerhalb des gültigen BereichsWer kann mir weiterhelfen, wie der Fehler behoben werden kann ?~Dim wkb As Workbook~ThisWorkbook.Sheets("xxxx").Copy~Set wkb = ActiveWorkbook Fehler bei der nächsten Anweisung~With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule~ .insertlines 3, "Private Sub Workbook_Open()"~ .........~ .insertlines 23, "End Sub"~End withDanke Reiner
27.01.2003 15:27:53
Reiner
Hallo,mit nachfolgendem Code will ich in ein mittels copy neu erstelltes Workbook eine Workbook_Open Prozedur einfügen.
Die Ausführung aus der Entwicklungsumgebung läuft ohne Fehler.
Bei Aufruf von Excel selbst kommt es zum Fehler:
Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs
Wer kann mir weiterhelfen, wie der Fehler behoben werden kann ?
~Dim wkb As Workbook
~ThisWorkbook.Sheets("xxxx").Copy
~Set wkb = ActiveWorkbook
Fehler bei der nächsten Anweisung
~With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule
~ .insertlines 3, "Private Sub Workbook_Open()"
~ .........
~ .insertlines 23, "End Sub"
~End with
Danke Reiner