Hallo
probier mal, aber ohne Gewähr :-) Kommentare sind durch Hochkomma ' als Kommentar gekennzeichnet OptionExplicit
Sub DeleteCommentsInCode() Dim myVB AsObject'VBComponents Dim myVBC AsObject'VBComponent Dim rowCounter As Long, i AsLong Set myVB = Workbooks(ThisWorkbook.Name).VBProject.VBComponents For Each myVBC In myVB With myVBC.CodeModule Debug.Print myVBC.Name rowCounter = .CountOfLines Debug.Print rowCounter For i = rowCounter To 1 Step -1 If Left(.Lines(i, 1), 1) = "'"Then .DeleteLines i EndIf Next EndWith Next EndSub
Gruss Rainer
Anzeige
AW: Kommentare löschen?
25.07.2005 09:39:39
Hajo_Zi
Hallo Martin,
Hans hat im Downloadbereich ein Teil vbeplusde.zip. Ein klasse Teil. Da ist es schon inclusive. Bitte keine Mail, Probleme sollten im Forum gelöst werden. Microsoft MVP für Excel Das Forum lebt auch von den Rückmeldungen. Betriebssystem XP Home SP2 und Excel Version 2003 SP1.