VBA-Beispiel 022
mail schreiben
mail schreiben

Kommentare in Makros entfernen

Dieses Makro entfernt alle Kommentare in Modul2. Fast alle: eingerückte Kommentare werden nicht entfernt.
Sub Kommentare_entfernen()
'entfernt alle Kommentare in Modul2
Dim i As Integer
Dim Code As String

With ThisWorkbook.VBProject.VBComponents("Modul2").CodeModule
    For i = 1 To .CountOfLines
    Code = .Lines(i, i)
         'überprüfen ob auskommentiert / wenn ja, löschen
          If Left(Code, 1) = "'" Then
             .DeleteLines i
             i = i - 1
          End If
    Next i
End With  
MsgBox "Kommentare in Modul2 entfernt"
End Sub

Download:   vba022.zip