50 Aufrufe
Gefragt in Tabellenkalkulation von
Ich kopieren folgenden Code in eine Zelle eines Arbeitsblattes, damit dieses entsprechende Infos via Kommentar dokumentiert. Vor allem wenn ich die Prozedur zum ersten Mal aufrufe bleibt der Makro in der Set Code Zeile stecken. Wenn ich den Debugger aufrufe, mit F8 händisch einen Schritt gehe, dann läuft der Makro mit F5 wieder ohne Probleme weiter.

Warum aber bleibt die Prozedur oft hier stehen? Hat jemand einen Idee?

Danke für die Antwort.

Set CodeM = Application.VBE.ActiveVBProject.VBComponents(ThisWorkbook.Worksheets(1).CodeName).CodeModule

                    With CodeM
                        intz = .CountOfLines + 1
                        .InsertLines intz, _
                    "Private Sub Worksheet_Change(ByVal Target As Range)" & Chr(13) & _
                     "Dim cmt As Comment" & Chr(13) & _
                        "If Target.Cells.Column = 1 Then" & Chr(13) & _
                         "cells(1,1).select" & Chr(13) & _
                              "If Target.Comment Is Nothing Then" & Chr(13) & _
                              "cells(1,1).select" & Chr(13) & _
                                  "Set cmt = Target.AddComment _" & Chr(13) & _
                                  "(Environ(""username"") & ""|"" & Now & ""|"" & Target.Value)" & Chr(13) & _
                              "Else" & Chr(13) & _
                                  "Set cmt = Target.Comment" & Chr(13) & _
                                  "cmt.Text cmt.Text & vbLf & _" & Chr(13) & _
                                  "Environ (""username"") & ""|"" & Now & ""|"" & Target.Value" & Chr(13) & _
                              "End If" & Chr(13) & _
                           "cmt.Shape.TextFrame.AutoSize = True" & Chr(13) & _
                        "End If" & Chr(13) & _
                        "End Sub"
                    
                    End With

1 Antwort

0 Punkte
Beantwortet von xlking Mitglied (229 Punkte)

Hallo Johannes,

Bei dir fehlt vermutlich ein Häkchen in den Optionen. Genauer gesagt im Trust-Center von Excel. Gehe im Excel unter Datei --> Optionen --> Trust Center --> Makroeinstellungen und setze den Haken bei Zugriff auf das VBA-Projektobjektmodell vertrauen. Ab sofort bleibt der Code dann nicht mehr an dieser Stelle hängen.

VBA Projektobjektmodell vertrauen

Gruß Mr. K.

...