Fehler bei Worbook_Open mit Range-Objekt
17.08.2006 07:29:39
stefanseevetal
Es gibt Tage, da sollte man im Bett bleiben. Habe heute Morgen als erstes meine Excel-Datei von gestern aufgemacht und da wurde mir gleich die erste Fehlermeldung angezeigt. Dabei ging es gestern noch einwandfrei?! Nachfogender Code wird ausgeführt, wenn ich die Datei öffne. Ging auch immer wunderbar, nur heute Morgen sagt mir Excel plötzlich, dass die Select-Methode des Range-Objektes nicht ausgeführt werden kann?! Hab nun mal eine andere Datei mit demselben Code geöffnet und siehe da, es funktionierte zumindest beim dritten Versuch?! Weiß nicht, was ich davon halten soll?! Kann ich da vielleicht was anders machen? Ist die Select-Methode etwas instabil? Dann würde ich sie nämlich lieber löschen, bevor ich hier jedes Mal Lotto spiele, ob es geht oder nicht!
Danke und Gruß,
Stefanseevetal
Code:
Private Sub Workbook_Open()
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Schadensmeldung")
wks.Activate
wks.UsedRange.Select
ActiveWindow.Zoom = True
[A1].Select
wks.ScrollArea = "A1:O37"
End Sub