Thema: Arbeitsmappen und Tabellenblätter

Home

Alle geöffneten Arbeitsmappen mit den zugehörigen Tabellenblättern werden in das TreeView-Steuerelement eingelesen. Bei Klick auf einen Eintrag wird die jeweilige Tabelle aktiviert.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Arbeitsmappen und Tabellenblätter einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Rahmen um das Treeview-Objekt bilden
- Rahmen um alle geöffneten Arbeitsmappen bilden
- Zähler um eins hochzählen
- Nodes-Element mit dem Arbeitsmappennamen bilden
- Rahmen um alle Arbeitsblätter der aktuellen Arbeitsmappe bilden
- Nodes-Element mit dem Tabellenblattnamen bilden
- Sorted-Eigenschaft auf True setzen

Code:


Private Sub UserForm_Initialize()
   Dim wkb As Workbook
   Dim wks As Worksheet
   Dim ndeMain As Node, ndeSecond As Node
   Dim iCounter As Integer
   With TreeView1
      For Each wkb In Workbooks
         iCounter = iCounter + 1
         Set ndeMain = .Nodes.Add(Text:=wkb.Name)
         For Each wks In wkb.Worksheets
            Set ndeSecond = .Nodes.Add(relative:=ndeMain, _
               relationship:=tvwChild, _
               Text:=wks.Name)
               ndeSecond.Sorted = True
         Next wks
      Next wkb
      ndeMain.Expanded = True
      ndeMain.Sorted = True
   End With
End Sub