Fenster und Filter - Codevorschlag
09.04.2009 04:56:29
Werner
Hallo Freunde,
zur Abwechslung mal keine Frage, sondern einen Vorschlag:
Nachdem es in einer großen Datei Probleme beim Einsatz des Automatikfilters gegeben hatte, wenn für ein Workbook dabei drei Fenster gleichzeitig geöffnet waren, habe ich folgendes Programm geschrieben, das, wenn für ein und dieselbe Datei mehr als ein Fenster geöffnet ist, die überzähligen Fenster schließt, und wenn umgekehrt nur ein einziges
Fenster geöffnet ist, zwei weitere zusätzlich öffnet und in alle Fenster benutzerdefinierte Ansichten setzt.
Man kann es dafür einsetzen, in einer Datei vor Einsatz des Automatikfilters die überzähligen Fenster zu schließen und nach Einsatz des Filters wieder insgesamt drei Fenster mit benutzerdefinierten Ansichten
zu öffnen.
Die benutzerdefinierten Ansichten müssen vor Ausführung des Makros definiert sein.
(Im Code habe ich das Groesser-als-Zeichen durch "größer als" ersetzt, weil dieses Zeichen vom
Herber-System nicht akzeptiert wird.)
Public Sub OeffneSchliesseFenster()
Dim i As Integer
Dim AnzFenster As Integer
If Workbooks("MeineMappe.xls").Windows.Count größer als 1 Then 'Dateiname u. ggf. Pfad _
anpassen
'Es werden alle Fenster ausser dem mit der Nummer 1 geschlossen
AnzFenster = ThisWorkbook.Windows.Count
For i = 1 To AnzFenster - 1
ThisWorkbook.Windows(i).Close
Next i
ActiveWorkbook.CustomViews("Alles").Show 'CustomView anpassen
Exit Sub
ElseIf Workbooks("MeineMappe.xls").Windows.Count = 1 Then
'Wenn nur ein einziges Fenster geoeffnet ist
ActiveWorkbook.CustomViews("Klein").Show 'CustomView anpassen
ActiveWindow.NewWindow.Activate
ActiveWindow.CustomViews("Letzt").Show 'CustomView anpassen
ActiveWindow.NewWindow.Activate
ActiveWorkbook.CustomViews("Rechts").Show 'CustomView anpassen
End If
End Sub
Beste Grüße! Werner R.
