Office: Treeview als Steuerelement

Hallo Leutz,

ich suche nach einer Möglichkeit ein Treeview als Steuerelement in eine Excel-Datei einzubinden.
Hierbei möchte ich gerne über den Tree die Navigation steuern, d.h. dass beim anklicken das entsprechende Worksheet geöffnet werden soll. Außerdem möchte ich die Unterteilung selbst irgendwie angeben...

habe da mal gesucht und ein paar Dinge gefunden... aber alles als Userform... und genau das will ich eben nicht... außerdem krieg ich das mit der parent und child Unterteilung nicht wirklich hin... bin auch nicht so der VBA-Profi.

Bin für jede Hilfe dankbar.

Gruß

 

Ich habs jetzt mit hin und her probieren geschafft einen Tree als Steuerelement mit den gewünschten Texten zu befeuern. Ich möchte jetzt aber noch gerne die Funktion hinzufügen, dass er beim anklicken die passende Arbeitsmappe öffnet...

kann mir dabei vielleicht jemand helfen?

Gruß

 

Hallo Leutz,

ich habs hingekriegt... einfach den folgenden Code eingeben... einen CommandButton erstellen und ein Treeview als Steuerelement... fertig ;)




Private Sub CommandButton1_Click()
fillTreeView
End Sub


Public Sub fillTreeView()
' TreeView mit Testdaten füllen

Dim oNode As MSComctlLib.Node
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
Set oNode = TreeView1.Nodes.Add(, , , "Beispiel")
Set oNode = TreeView1.Nodes.Add(1, tvwChild, , "1. Beispiel")
Set oNode = TreeView1.Nodes.Add(1, tvwChild, , "2. Beispiel")
Set oNode = TreeView1.Nodes.Add(1, tvwChild, , "3. Beispiel")
Set oNode = TreeView1.Nodes.Add(2, tvwChild, , "Test11")
Set oNode = TreeView1.Nodes.Add(2, tvwChild, , "Test12")
Set oNode = TreeView1.Nodes.Add(3, tvwChild, , "Test21")
Set oNode = TreeView1.Nodes.Add(3, tvwChild, , "Test22")
Set oNode = TreeView1.Nodes.Add(4, tvwChild, , "Test31")
Set oNode = TreeView1.Nodes.Add(4, tvwChild, , "Test32")
For Each oNode In TreeView1.Nodes
oNode.EnsureVisible
Next
TreeView1.OLEDragMode = ccOLEDragAutomatic
TreeView1.OLEDropMode = ccOLEDropManual
End Sub

Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
fillTreeView
End Sub

Private Sub TreeView1_Click()
With TreeView1.SelectedItem
If .Children = False Then
Worksheets(TreeView1.SelectedItem.Text).Activate
Else
Worksheets(TreeView1.SelectedItem.Text).Activate
End If
End With
End Sub


Danke an alle, die mal reingeschaut haben...