Geöffnete Mappen auslesen
16.06.2002 20:53:11
Holger
Ich habe eine Routine mit der ich alle geöffneten Mappen in der fensterliste auslesen kann. Leider erscheinen hier nicht die dateien mit der xla-Endung. Kann mann diese auch auslesen?
Hier das Makro mit dem ich arbeite:
Option Explicit
Sub Mappe_in_Fensterliste()
Dim winFenster As Window
Dim wkbMappe As Workbook
For Each wkbMappe In Workbooks
For Each winFenster In wkbMappe.Windows
If Not winFenster.Visible Then
MsgBox winFenster.Caption & " ist unsichtbar"
Else
MsgBox winFenster.Caption & " ist sichtbar"
End If
Next winFenster
Next wkbMappe
End Sub
Danke Holger