Makroausfüh bei Größenänderung des Excel-Fensters
16.04.2006 21:11:01
Dieter
mit dem folgenden VBA-Code im EXCEL-Modul "DieseArbeitsmappe" wird der Zellbereich "A1:E15" im Arbeitsblatt "Tabelle1" optimal durch Zoomen ins Workbook-Fenster eingepasst, wenn man die Größe des Workbook-Fensters durch Ziehen (oder Minimieren/Maximieren) verändert. Dies wird durch das Event "WindowResize" ausgelöst.
Private Sub Workbook_WindowResize(ByVal Wn As Window)
If Tabelle1.CodeName = ActiveSheet.CodeName Then
Range("A1:E15").Select
ActiveWindow.Zoom = True
Range("A1").Select
End If
End Sub
Das Event "WindowResize" funktioniert aber nur bei Größenänderung des Workbook-Fensters innerhalb des Fensters der Excel-Application.
Ist das "innere" Workbook-Fenster maximiert und man verändert die Größe des "äußeren" Fensters von Excel, dann wird das Makro nicht ausgeführt. Aber genau das möchte ich erreichen.
Kennt jemand einen Weg?
Gruß
Dieter