Laufzeitfehler: 57121 bzw. 1004
21.08.2006 15:49:30
stefanseevetal
Ich habe ein recht kniffliges Problem. Leider kann ich die Datei, die es betrifft nicht hochladen, da sie einfach zu groß ist. Ich habe nun versucht, die Datei abzuspecken, doch dann ist der Fehler plötzlich nicht mehr da. Ich komme leider trotzdem nicht drauf, wo er liegen könnte und sitze schon ne knappe Woche daran, das Problem zu lösen. Ich kann die Datei bzw. die beiden Dateien, die es betrifft aber gerne zumailen, falls sich jemand so nett ist und mir helfen möchte. Hier nun mein Problem:
Ich habe folgenden Code in "Diese Arbeitmappe" in einer Datei gespeichert:
Private Sub Workbook_Open()
On Error GoTo ERRORHANDLER:
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Schadensmeldung")
wks.Activate
wks.UsedRange.Select
ActiveWindow.Zoom = True
[A1].Select
' Der Scrollbereich für "Schadensmeldungen" wird begrenzt.
wks.ScrollArea = "A1:O37"
Exit Sub
ERRORHANDLER:
Worksheets("Schadensmeldung").Activate
End Sub
Funktioniert auch normalerweise einwandfrei. Öffne ich aber nun diese Datei (x) per Makro aus einer anderen Datei (y) und der Bildschirm in der Datei x wurde beim letzmaligem Verlassen und Speichern nicht auf Tabellenbaltt "Schadensmeldungen" zurückgestellt, dann kommt eine Fehlermeldung. Lasse ich den "ERRORHANDLER" weg, kommt die Fehlermeldung Laufzeitfehler 1004: die Select-.Methode des Range-Objekts konnte nicht ausgeführt werden. Mache ich es mit ERRORHANLDER (bedeut ja nichts anderes als wenn ich nur Worksheets("Schadensmeldung").Activate schreibe), kommt der Laufzeitfehler 57121: Anwendungs- oder objektdefinierter Fehler.
Ich habe letzte Woche schon einmal mein Problem gepostet und habe die Antwort bekommen, dass es bei anderen funktioniert, aber leider bei bei mir nicht. Es wird wohl an einem Konflickt liegen zwischen dem Workbook_Open-Befehl und anderem Code, nur keine Ahnung wo und warum? Vielleicht hat ja jemand eine Idee, ich schicke die beiden Dateien auch gerne zu?!
Danke und Gruß,
Stefan