Bildschirmauflösung Teil 2
14.08.2004 15:48:16
Tom
ich bin´s schon wieder.
Sorry, das ich einen neuen Thread über das gleiche Problem von heute morgen öffne.
Da hab ich doch geglaubt, das meine Prob´s mit Hilfe von Annett gelöst sind und nun sind sie wieder da.
Die Bildschirmauflösung ändert sich nur dann, wenn ich zuvor einmal zwischen zwei
Sheet´s wechsele. Sie sollte sich aber schon beim öffnen der Datei umstellen.
Hab ich den gar nichts kapiert?
Diese Arbeitsmappe:
Private Sub Workbook_Activate()
Sheets("Tabelle1").Activate
Application.ScreenUpdating = False
Range("A1:H1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A1").Select
Sheets("Tabelle2").Activate
Application.ScreenUpdating = False
Range("A1:H1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A1").Select
Sheets("Tabelle3").Activate
Application.ScreenUpdating = False
Range("A1:G1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Tabelle1:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A1:H1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Tabelle2:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A1:H1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Tabelle3:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A1:G1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Gruß
Tom