![]() |
|
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.
|
|
|
|
|
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: [ 440 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 