Fenster des VBE auflisten

[d'r Bastler]

Moin allerseits,

als Nebenprodukt der Suche nach einer Möglichkeit das Direktfenster per VBA zu löschen, ist das hier herausgekommen. Die paar Zeilen listen auch die nicht-sichtbaren Fenster des VBE auf. Der hier eingebaute Filter lässt sich leicht anpassen.

Code: Alles auswählen

Sub ListVBEwindows()
  Dim oWindow As Object, oProp As Object, i As Integer
  Cells.Clear
  i = 1
  For Each oWindow In Application.VBE.Windows
        Cells(i, 1) = oWindow.Caption
        If oWindow.Caption = "Direktbereich" Then
        oWindow.Visible = True
        For Each oProp In oWindow.Contents
            MsgBox oProp.Name
        Next
            MsgBox "!", , "Zeile " & i
        End If
        i = i + 1
  Next
End Sub

Viel Spaß damit!