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
