Hallo,
eventuell kann dieser Befehl helfen:
Application.VBE.MainWindow.Visible = True
Quelle: http://www.ms-office-forum.net/forum/showthread.php?t=216204
Durch diesen Befehl wird das VBA-Fenster angezeigt.
Alternativ kann man auch versuchen, den Fehler eingrenzen zu können:
Option Explicit
Public Declare Function _
WritePrivateProfileString Lib _
"kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Sub Test()
Anweisung "Initialisierung", "Zeile 5"
End Sub
Sub Anweisung(Routine As String, Info As String)
IniSchreiben "C:\tmp\tt.ini", Routine, "Info", Info
End Sub
Private Sub IniSchreiben(ByVal strDatei As String, ByVal fldName As String, ByVal key As String, value As String)
WritePrivateProfileString fldName, key, value, strDatei
End Sub
Vor den einzelnen Befehlen muss lediglich eine zusätzlich Zeile eingefügt werden:
Anweisung {Befehl}, {Zeile-Nummer}
Dann wird vor der Ausführung eines befehls immer erst die Information in eine Ini-Datei geschrieben.
Wenn dann ein Fehler auftritt kann der letzte Befehl rekonstruiert werden.
Alternativ kann natür auch mit
on error goto ...
gearbeitet werden. Aber ich setze mal voraus, dass es bereits viele Fehlerbehandlungsroutinen gibt.
In diesem Fall kann der Aufruf
Anweisung {Befehl}, {Zeile-Nummer}
direkt in der Fehlerbehandlung ausgeführt werden.
VG, BigBen
|