Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Steuerelemente

Treeview - 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
 Ihre Meinung zu Online Excel Geben Sie uns ein Feedback

Weitere Artikel der Gruppe: Steuerelemente Aus Excel VBA
Nach oben