Code durch Funktion erstellen
18.08.2005 11:05:50
Stefan
ich habe eine Funktion, die mir einen Code in einer geöffneten Arbeitsmappe generiert:
Sub CodeKopieren()
Dim objMappe As Workbook
Set objMappe = ActiveWorkbook
With objMappe.VBProject.VBComponents(objMappe.CodeName).CodeModule
.InsertLines 1, "...CodeText..."
End With
End Sub
Nun habe ich das Problem, dass bei einigen Dateien - also nicht immer - in der Zeile With objMappe... ein "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs" angezeigt wird.
Setze ich vor die With-Anweisung folgende Zeile
Dummy = objMappe.VBProject.VBComponents(objMappe.CodeName).CodeModule