Prüfen ob Modul leer ist

Funktion

Diese Funktion stellt fest, ob ein Modul leer ist.

Code

Public Function IstModulLeer(vbc As VBIDE.VBComponent) As Boolean 

 
'Variablen deklarieren 
Dim lngLine As Long 
Dim strLine As String 

 
'Initialisieren 
IstModulLeer = False 

 
If vbc.CodeModule.CountOfLines = vbc.CodeModule.CountOfDeclarationLines Then 
For lngLine = 1 To vbc.CodeModule.CountOfLines 
strLine = Trim$(vbc.CodeModule.Lines(lngLine, 1)) 
If Len(strLine) > 0 Then 
If Left$(strLine, 6) <> "Option" Then 
If Left$(strLine, 1) <> "'" Then 
If Left$(strLine, 3) <> "Rem" Then 
Exit Function 
End If 
End If 
End If 
End If 
Next 
IstModulLeer = True 
End If 

 
End Function

Beschreibung

Als erstes wird geprüft, ob das Modul nur Deklarationen enthält. Wenn dies der Fall ist, wird geprüft, ob Zeilen vorhanden sind, die weder eine Option definieren noch Kommentar sind. Wenn keine solche Zeilen vorhanden sind ist das Modul leer.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich:

• Microsoft Visual Basic for Applications Extensibility 5.3