Tipp 0494 Zeilennummerierung von Makros (VBE)
Autor/Einsender:
Datum:
  Max Kaffl
09.05.2006
Entwicklungsumgebung:   Excel 2000
Um die undokumentierte Funktion Erl, mit der die Zeilennummer, in der ein Fehler aufgetreten ist, ausgegeben werden kann, nutzen zu können, müssen die Zeilen wie in folgendem Beispiel nummeriert werden.
 
Public Sub Demo()
1 Dim intIndex As Integer
2 Dim bytValue As Byte

3 On Error GoTo err_exit
4 For intIndex = 0 To 256
5   bytValue = intIndex
6 Next
7 MsgBox CStr(bytValue)

8 Exit Sub
9 err_exit:
10 MsgBox "Fehler " & CStr(Err.Number) & " in Zeile " & _
        CStr(Erl) & vbLf & vbLf & Err.Description, _
        vbCritical, "Fehler"
End Sub
 
Mit dem im Download enthaltenen Excel-Add-In können die Zeilennummern hinzugefügt und auch wieder entfernt werden. Für den Aufruf der beiden Prozeduren werden automatisch beim Öffnen/Laden des Add-Ins im VB-Editor im Menü Extras zwei zusätzliche Schaltflächen hinzugefügt.
Hinweis
Ab Excel 2002 (XP) erhalten Sie beim Ausführen von Code, in der die Bibliothek von Microsoft Visual Basic für Applikationen Extensibility 5.3 verwendet wird, möglicherweise eine Fehlermeldung. Die Ursache dafür ist die neue Sicherheitsfunktion, über die Sie steuern können, ob der programmatische Zugriff auf das Visual Basic-Projekt sicher ist oder nicht. Als Standardeinstellung wird der programmatische Zugriff auf das Visual Basic-Projekt als nicht sicher angesehen.
Der programmatische Zugriff auf das Visual Basic-Projekt kann wie in folgendem Artikel von Microsoft beschrieben, gewährt werden:
XL2002: Fehlermeldung: "Laufzeitfehler '1004': Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher"

Windows-Version
95
98
ME
NT
2000
XP
Vista
Win 7
Excel-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (20 kB) Downloads bisher: [ 605 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 30. August 2011