Office: CodeModule aufrufen / Laufzeitfehler

Hallo,

ich habe ein kleines Problem, wo ich als Laie den Grund nicht verstehe.

Ich habe eine Arbeitsmappe, wo bei Knopfdruck ein neues Arbeitsblatt erstellt wird und dann auch per Makro mit Daten gefüllt wird. So weit, so gut. Nun soll das Arbeitsblatt aber auch automatisch mit einem Makro versehen werden, indem ich den Code über das CodeModul eingebe.
Hierfür benutze ich folgendes Makro:

Code:

Sub markierung()
Dim oVBProject As VBComponent

Dim name As String

name = ActiveSheet.CodeName
Set oVBProject = ThisWorkbook.VBProject.VBComponents(name) ' Wir greifen auf das Projekt dieser Arbeitsmappe zu
With oVBProject.CodeModule
        .InsertLines .CountOfLines + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
        .InsertLines .CountOfLines + 1, "   Zeile = Activesheet.Cells.Find(" & Chr(34) & "*" & Chr(34) & ", [A1], , , xlByRows, xlPrevious).Row"
        .InsertLines .CountOfLines + 1, "   Spalte = ActiveSheet.Cells.Find(" & Chr(34) & "*" & Chr(34) & ", [A1], , , xlByColumns, xlPrevious).Column"
        .InsertLines .CountOfLines + 1, "   Spalte_1 = Split(Cells(1, Spalte).Address, " & Chr(34) & "$" & Chr(34) & ")(1)"
        .InsertLines .CountOfLines + 1, "   If Not Intersect(Target, Range(" & Chr(34) & "A1:" & Chr(34) & " & Spalte_1 & Zeile)) Is Nothing Then"
        .InsertLines .CountOfLines + 1, "       If ActiveCell.Interior.ColorIndex = xlNone Then"
        .InsertLines .CountOfLines + 1, "           Answer = MsgBox(" & Chr(34) & "Do you want to mark this maintenance as done" & Chr(34) & ", vbQuestion + vbYesNo, " & Chr(34) & "???" & Chr(34) & ")"
        .InsertLines .CountOfLines + 1, "           If Answer = vbYes Then"
        .InsertLines .CountOfLines + 1, "               UserForm6.Show"
        .InsertLines .CountOfLines + 1, "               With ActiveCell.Interior"
        .InsertLines .CountOfLines + 1, "                   .ColorIndex = 4"
        .InsertLines .CountOfLines + 1, "               End With"
        .InsertLines .CountOfLines + 1, "           End If"
        .InsertLines .CountOfLines + 1, "       End If"
        .InsertLines .CountOfLines + 1, "   End If"
        .InsertLines .CountOfLines + 1, "End Sub"
End With
End Sub

Wenn ich jetzt das Makro aber das erstemal nach dem Start von Excel durchlaufen lasse, bekomme ich einen Laufzeitfehler gemeldet. Gehe ich dann auf Debuggen und beende den Debugger dann ohne was zu ändern und lass dann das Makro nochmal laufen, so funktioniert es einwandfrei.

Irgendwie verstehe ich den Grund dafür nicht, oder liegt es daran, dass das Arbeitsblat beim Programmstart noch nicht existierte? Allerdings bei weiteren Blättern danach ist es kein Problem mehr.

Ich kann den Fehler zwar umgehen, indem ich den Fehler mit "On Error Goto" abfange und das Makro automatisch dann nochmal aufrufe, aber mich würde der Hintergrund doch brennend interessieren.

Gruß
Christian

 

Hallo Christian,

Du hast den Zugriff auf das VBA Projekt schon zugelassen. Ich gebe keine Auskunft wo das eingestelt wird, da dies meiner Meinung nach tief in die Sicherheit geht.

Gruß Hajo

 

War das mit dem Zugriff eine Frage oder eine Feststellung?

Falls es ein Frage war und du meinst die Vertrauenseinstellung bei dem VBA ProjektObjektModell, dann ist die Antwort: ja habe ich zugelassen.

Was mich halt wundert ist, dass der Fehler nur beim ersten Ausführen nach dem Datei-Öffnen passiert und danach nicht mehr, ohne dass ich bewusst was geändert habe.

Es handelt sich übrigens um: Laufzeitfehler 9 Index außerhalb des gültigen Bereichs.

Habe jetzt nochmal getestet:
Der Fehler tritt nicht mehr auf wenn ich den VBA Editor geöffnet habe, oder ich den Fehler abfange und direkt nochmals ausführen lasse.