Workbook_Open unterdrücken durch VBA
17.08.2006 11:05:06
stefanseevetal
Ich habe immer noch ein Problem mit meinen WorkBook_Open-Befehl. Nun habe ich rausgefunden, dass meine Anweisungen in
Private Sub Workbook_Open ()
End Sub
korrekt ausgeführt werden, wenn ich die Datei direkt öffne. Wenn ich die Datei über einen Button in einer anderen Datei öffne, funzt es aber nicht mehr und es kommt die Fehlermeldung, dass die Select-Methode des Range-Objekts nicht ausgeführt werden konnte. Hier mein Beispiel:
Datei: "Schaden.xls". Code in: "Diese Arbeitsmappe"
Private Sub Workbook_Open()
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Schadensmeldung")
wks.Activate
wks.UsedRange.Select
ActiveWindow.Zoom = True
End Sub
Ich öffne diese Datei durch einen Button (in einer anderen Datei), bei dem folgender Code hinterlegt ist:
Sub zuSchaden()
Dim spfad as String
spfad = ThisWorkbook.Path & "\Schaden.xls"
If DateiGeoeffnet(spfad) = True Then
Windows("Schaden.xls").Activate
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\Schaden.xls"
End If
(Die Funktion DateiGeoeffnet funktioniert ewinwandfrei, ich habe sie deshalb nicht hier zugeschrieben)
Ich dachte immer, dass die Anweisungen in
Private Sub Workbook_Open()
End Sub
in der Datei Schaden.xls auch ganz normal ausgeführt werden, wenn ich, wie oben gezeigt, per Button aus einer anderen Datei öffnen möchte. Aber scheinbar, gibt es da doch einen Unterschied. Was muss ich machen, damit es korrekt funktioniert? Kann ich die Prozedur
Private Sub Workbook_Open()
End Sub
verhindern, wenn ich per Button die Datei öffne und dafür dann den Code mit beim Button hinterlegen?
Danke und Gruß,
Stefan