Daten mit Treeview darstellen

Hallo Leute ich habe hier einen interessanten Eintrag über Treeview gefunden leider gibt es zu dem Thema kaum Informationen im Netz. In dem Beitrag wurde eine Beispieldatei hochgeladen.

Die Datei https://www.herber.de/bbs/user/62395.xls wurde aus Datenschutzgründen gelöscht

Diese wollte ich meinen Bedürfnissen anpassen aber ich bekomme immer einen Syntaxfehler. Anstatt jeden Namen der Arbeitsblätter inklusive der Zelle A1 in das Textfenster zu schreiben möchte ich nur die Daten aus einem Tabellenblatt einlesen z.B. A5:A2000, aber das Funktioniert nicht. Ich kann immer nur einen Zellenwert anzeigen lassen obwohl ich "A5:A2000" geschrieben habe. Wieso ist das so? Der Code sieht aktuell so aus.

Private Sub TreeView1_Click()
Dim s As String, i As Integer
With TreeView1.SelectedItem
s = .Text
i = InStr(1, s, "-", vbTextCompare)
If i > 0 Then
s = Trim(Left(s, i - 1))
End If
If .Children = False Then
Workbooks(.Parent.Text).Worksheets(s).Activate
Else
Workbooks(TreeView1.SelectedItem.Text).Activate
End If
End With
End Sub
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.Range("A5"). _
Value)
Set ndeSecond = .Nodes.Add(relative:=ndeMain, relationship:=tvwChild, Text:=wks.Range(" _
B5").Value)
ndeSecond.Sorted = True
Next wks
Next wkb
ndeMain.Expanded = True
ndeMain.Sorted = True
End With
End Sub

Grüße Marco

Wow Luschi es funktioniert perfekt es macht ja sogar mehr als ich hier überhaupt gewollt habe. Es wird sortiert und die Begriffe wie BMW und Sitz werden nicht doppelt angezeigt. Ich habe ganz anders versucht das sortier Problem zu lösen nämlich so:

    ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort.SortFields.Add Key:= _
Range("A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort.SortFields.Add Key:= _
Range("B3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort.SortFields.Add Key:= _
Range("C3"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Deine Variante ist ja viel kürzer und elegeanter. Jetzt versuche ich mal dein Makro noch um 3 Spalten zu erweitern für den Fall das es noch weiter in die Tiefe geht.
1. Frage wenn ich möchte dass das auch automatisch um die Spalten erweitert wird muss man das dann mit einer zusätzlichen schleife versehen?
2. Kann man das Treeview Fenster anstatt in einem UserForm auch direkt ohne knopfdruck in einem Tabellenblatt anzeigen lassen? Ich finde dafür nämlich kein Symbol oder muss ich das aus einem Verzeichnis erst hinzufügen?
3. Gibt es einen Befehl der es mir ermöglicht Spalte C bis Spalte F zusammengefasst als dritten Tree anzuzeigen anstatt nur Spalte C alleine? In Excel weiß ich dass das geht aber in VBA?
Aber erst mal noch ein riesen großes danke schön an dich jetzt kann ich mich total austoben =)
Viele Grüße Marco

Forumthread: Daten mit Treeview darstellen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial