Dieses kleine Beispiel habe ich mal geschrieben, um jemandem in einem Forum einen ersten Einblick in das Treeview zu geben. Es sollte genügen, um auf dieses Steuerelement neugierig zu machen.

' **************************************************************
'  Modul:  UserForm1  Typ = Userform
' **************************************************************

Option Explicit
'Benötigt Treeview1 und Commandbutton1
'Simples Beipspiel ohne Fehlerabfangung zum ersten Kennenlernen des Treeviewcontrols
'PH 2004
 
Private Sub CommandButton1_Click()
 Dim g, h, oMappe As Workbook, oNode As Node, z
 With TreeView1
  For Each g In Workbooks
   z = z + 1
   Set oMappe = g
   Set oNode = .Nodes.Add(, , "W" & z, oMappe.Name)
   oNode.Expanded = True
   For Each h In oMappe.Sheets
    Set oNode = .Nodes.Add("W" & z, tvwChild, , h.Name)
   Next h
  Next g
 End With
End Sub
 
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
 With Node
  If .Children Then
   MsgBox .Text
  Else
   If Workbooks(.Parent.Text).Windows(1).Visible Then
    Workbooks(.Parent.Text).Sheets(.Text).Activate
   Else
    MsgBox "Arbeitsmappe ist ausgeblendet"
   End If
  End If
 End With
End Sub