Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

VBA-Code als Zellkommentar anzeigen

Gruppe

Editor

Problem

Der Code eines VBA-Moduls soll in Zelle A1 als Kommentar angezeigt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub GetCode()
   Dim cmt As Comment
   Dim sCode As String
   With ThisWorkbook.VBProject.VBComponents("Modul1").CodeModule
      sCode = .Lines(1, .CountOfLines) & vbLf & vbLf & "Aktualisierung: " & Now
   End With
   sCode = Replace(sCode, vbCr, "")
   With Range("A1")
      If Not .Comment Is Nothing Then
         .Comment.Delete
      End If
      Set cmt = .AddComment(sCode)
      cmt.Shape.TextFrame.AutoSize = True
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Editor