Autor: Peter Haserodt --- Aus Excel VBA - Gruppe:
SteuerelementeTreeview - Erstes Kennenlernen
Autor: Peter Haserodt - Erstellt: -- - Letzte Revision: --
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
Interner Tipp:
Eine Excel Schulung von einem Profi ist Gold wert!
Peter Haserodt bietet Ihnen das und noch viel mehr...
Mehr dazu unter:
Schulung
Weitere Artikel der Gruppe: Steuerelemente Aus Excel VBA
Nach oben