Fehlermeldung beim Formatbefehl in VBA beheben
Schritt-für-Schritt-Anleitung
-
Verweise Überprüfen:
- Öffne den VBA-Editor (ALT + F11).
- Gehe zu
Extras
> Verweise
.
- Stelle sicher, dass die folgenden Bibliotheken aktiviert sind:
- Visual Basic for Applications
- Microsoft Excel x.y Object Library
- Microsoft Forms x.y Object Library
- Entferne Häkchen bei nicht benötigten oder fehlerhaften Einträgen.
-
Fehlerhafte Verzeichnisse Prüfen:
-
Makros Testen:
-
Fehlermeldungen Überprüfen:
- Achte auf Fehlermeldungen im Code und analysiere diese genau, um die Ursache zu finden.
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Hier sind zwei Makros, die dir helfen, die Verweise und Add-Ins zu überprüfen:
Sub Liste_AddIns()
Dim objAddIn As Object, zz As Long
Worksheets.Add
[A1:L1] = Array("Name", "Installed", "AddIn_Title", "Author", "Exist", "FullName", "Path", "Parent", "Application", "Creator", "CLSID", "progID")
zz = 1
For Each objAddIn In Application.AddIns
zz = zz + 1
With objAddIn
Cells(zz, 1) = .Name
Cells(zz, 2) = IIf(.Installed, "ja", "nein")
On Error Resume Next
Cells(zz, 3) = .Title
Cells(zz, 4) = .Author
On Error GoTo 0
If Dir(.FullName) > "" Then Cells(zz, 5) = "ja" Else Cells(zz, 5) = "nein"
Cells(zz, 6) = .FullName
Cells(zz, 7) = .Path
Cells(zz, 8) = .Parent
Cells(zz, 9) = .Application
Cells(zz, 10) = .Creator
Cells(zz, 11) = .CLSID
Cells(zz, 12) = .progID
End With
Next objAddIn
ActiveSheet.UsedRange.Columns.AutoFit
Rows(1).HorizontalAlignment = xlCenter
End Sub
Sub Liste_Verweise()
Dim objRef As Object, zz As Long
Worksheets.Add
ActiveSheet.Name = "Verweise_" & Format(Now, "YYYYMMDD hhmmss")
[A1:I1] = Array("Bibliothek", "Verweis_Description", "Broken", "Type", "BuiltIn", "Speicherort", "Major", "Minor", "GUID")
zz = 1
For Each objRef In Application.VBE.ActiveVBProject.References
zz = zz + 1
With objRef
Cells(zz, 1) = .Name
Cells(zz, 2) = .Description
Cells(zz, 3) = IIf(.IsBroken, "BROKEN!", "'-")
Cells(zz, 4) = IIf(.Type = 0&, "TypeLib", "Project")
Cells(zz, 5) = IIf(.BuiltIn, "j", "n")
Cells(zz, 6) = .Fullpath
Cells(zz, 7) = .Major
Cells(zz, 8) = .Minor
Cells(zz, 9) = .GUID
End With
Next objRef
ActiveSheet.UsedRange.Columns.AutoFit
Rows(1).HorizontalAlignment = xlCenter
End Sub
Tipps für Profis
- Verwende die
Shift + F2
-Tastenkombination, um schnell zur Definition von Funktionen im VBA-Editor zu gelangen.
- Behalte den Objektkatalog (F2) offen, um schnell nach Funktionen und Klassen zu suchen.
- Halte deine Excel-Version aktuell, um Kompatibilitätsprobleme zu vermeiden.
FAQ: Häufige Fragen
1. Was bedeutet die Fehlermeldung "Projekt oder Bibliothek nicht gefunden"?
Diese Fehlermeldung weist darauf hin, dass eine benötigte Bibliothek oder ein Verweis nicht korrekt aktiviert ist.
2. Was ist der Unterschied zwischen Format
und Format$
?
Format$
gibt einen String-Wert zurück. Der Unterschied liegt hauptsächlich in der Verwendung der Datentypen, wobei $
für eine schnellere Rückgabe von Strings in älteren Versionen von VBA verwendet wird.