Sub AddCode()
Dim strCode As String
strCode = "Test"
DieseArbeitsmappe.VBProject.VBComponents(Worksheets(1).CodeName).CodeModule. _
InsertLines LineNr + 1, strCode
End Sub
Beim Aufrufen bekommt man diese FehlermeldungLaufzeitfehler '9':
Index außerhalb des gültigen Bereichs.
Problem ist, dass das Tabellenblatt zu dem Zeitpunkt zwar schon fertig erstellt ist, aber er "Worksheets(1).CodeName" nicht auslesen kann. Somit kann ich das entsprechende Arbeitsblatt natürlich nicht ansprechen.
Komisch ist auch, dass der Befehl funktioniert, wenn man ihn im Debugger Schritt für Schritt durchgeht. Da kommt dann nur die Meldung "Wechseln in den Haltemodus zu diesem Zeitpunkt nicht möglich." Klickt man dort dann auf Fortfahren funktioniert alles.
Wenn jemand eine Idee hat wie man das Problem lösen kann wäre ich euch sehr dankbar
Stefan