seltsamer Programm-Absturz
13.02.2005 12:45:40
Thorsten
folgendes Problem bereit mir Kopfzerbrechen.
Ich habe ein Makro, in das ich folgende user32.dll
Funktionen eingebunden habe:
Public Declare
Function FindWindow Lib "user32" Alias
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName
As String) As Long
Public Declare
Function SetTimer Lib "user32" (ByVal hwnd As Long,
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc
As Long) As Long
Private Declare
Function KillTimer Lib "user32" (ByVal hwnd As Long,
ByVal nIDEvent As Long) As Long
Private Declare
Function GetAsyncKeyState Lib "user32" (ByVal
vKey As Long) As Integer
Die Funktionen laufen einwandfrei.
Wenn jedoch die folgende
Sub durchlaufen wird, wird Excel ohne jede
Warnung/Fehlermeldung beendet.
Sub Rahmen_Aus(Bereich As String)
'MsgBox Bereich
Range(Bereich).Interior.ColorIndex = 17
Range(Bereich).Borders(xlEdgeLeft).LineStyle = xlNone
Range(Bereich).Borders(xlEdgeTop).LineStyle = xlNone
Range(Bereich).Borders(xlEdgeBottom).LineStyle = xlNone
Range(Bereich).Borders(xlEdgeRight).LineStyle = xlNone
End Sub
Für mich ist das unerklärlich, zumal der Code in jedem anderen
Programm sauber läuft und auch die Variable "Bereich" mit korrekten
Werten ankommt. Wenn ich alle Zeilen der
Sub auskommentiere, stürzt
Excel komischerweise nicht ab. Irgendwie scheint es, wenn für mich auch
unerklärlich, mit diesem Stück Code zu tun zu haben.
Vielleicht weiß von euch jemand, woran es liegt.
Gruß,
Thorsten