Abfrage nach aktiver Fensterteilung

04/02/2009 - 14:46 von Harald Schlüter | Report spam
Hallo Zusammen,

ich habe folgendes Makro (Aufheben der Fensterteilung), welches bei
klick auf einen Button ausgelöst wird:


Private Sub Set_Back_Comparison_Click()
Application.ScreenUpdating = False

Windows(2).Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized

Application.ScreenUpdating = True
End Sub



Ergànzend dazu benötige ich eine Abfrage, ob das Fenster überhaupt
geteilt ist.
Diese soll verhindern, dass bei klick auf den Button (wenn keine
Fensterteilung vorgenommen wurde) keine Fehlermeldung erscheint.

Vielen Dank im Voraus!

Harald
 

Lesen sie die antworten

#1 Wolfgang Habernoll
04/02/2009 - 15:11 | Warnen spam
Hallo Harald

"Harald Schlüter" schrieb im Newsbeitrag
news:
Hallo Zusammen,

ich habe folgendes Makro (Aufheben der Fensterteilung), welches bei
klick auf einen Button ausgelöst wird:


Private Sub Set_Back_Comparison_Click()
Application.ScreenUpdating = False

Windows(2).Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized

Application.ScreenUpdating = True
End Sub

Ergànzend dazu benötige ich eine Abfrage, ob das Fenster überhaupt
geteilt ist.
Diese soll verhindern, dass bei klick auf den Button (wenn keine
Fensterteilung vorgenommen wurde) keine Fehlermeldung erscheint.



dein Code entspricht aber der Option "Neues Fenster" und nicht teilen. Aber versuche
es es mal so

Private Sub Set_Back_Comparison_Click()
If Windows.Count > 1 Then
Application.ScreenUpdating = False
Windows(2).Close
ActiveWindow.WindowState = xlMaximized
Application.ScreenUpdating = True
End If
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen