Funktion
Diese Funktion stellt fest, ob ein Modul leer ist.
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.
Damit dieser Code funktioniert, ist folgender Verweis erforderlich: