Office: treeview alles im 1. Child

Hallo, bin auch mal wieder da...

Ich sitze grad an einem Treeview.
Zum Problem. Hab viel ausprobiert und das kommt am Nähesten an die Lösung. ( siehe unten )

Leider werden alle Kinder unter dem ersten Eintrag eingefügt.
Ich denke das liegt an .Child.

Weiß jemand, wie die Kinder unter dem richtigen Oberpunkt eingfügt werden können?

Private Sub CommandButton1_Click()
Dim a, z As Long
Dim temp, temp2, temp3, temp4, temp5 As String

Dim nd As Node, nd2 As Node
With TreeView1.Nodes
' 1. Ebene
Set nd = .Add(, , "id", "Eclass")
For a = 2 To 249
temp3 = a
temp2 = "A" & temp3
temp = Range(temp2).Value
temp2 = Mid(temp, 3, 6)
temp3 = "000000"
If temp2 = temp3 Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
.Add nd.Key, TreeRelationshipConstants.tvwChild, , temp4
End If
temp2 = Mid(temp, 5, 4)
temp4 = Mid(temp, 3, 2)
temp3 = "0000"
If (temp2 = temp3) And (temp4 <> "00") Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
.Add nd.Child, TreeRelationshipConstants.tvwChild, , temp4
End If
temp2 = Mid(temp, 7, 2)
temp4 = Mid(temp, 5, 2)
temp3 = "00"
If (temp2 = temp3) And (temp4 <> "00") Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
.Add nd.Child.Child, TreeRelationshipConstants.tvwChild, , temp4
End If
If temp2 <> "00" Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
.Add nd.Child.Child.Child, TreeRelationshipConstants.tvwChild, , temp4
End If
Next
nd.Expanded = False
End With
End Sub

Danke schon mal.

Diersi

 

lsg

so gehts...

Private Sub CommandButton1_Click()
Dim a, x, y, z As Long
Dim temp, temp2, temp3, temp4, temp5 As String

Dim nd As Node, nd2 As Node
With TreeView1.Nodes
' 1. Ebene
Set nd = .Add(, , "id1", "Eclass")
z = 1
x = 1
y = 1
For a = 2 To 249
temp3 = a
temp2 = "A" & temp3
temp = Range(temp2).Value
temp2 = Mid(temp, 3, 6)
temp3 = "000000"
If temp2 = temp3 Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
temp3 = z
temp5 = "idz" & temp3
.Add "id1", tvwChild, temp5, temp4
z = z + 1
End If
temp2 = Mid(temp, 5, 4)
temp4 = Mid(temp, 3, 2)
temp3 = "0000"
If (temp2 = temp3) And (temp4 <> "00") Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
temp3 = y
temp6 = "idy" & temp3
.Add temp5, tvwChild, temp6, temp4
y = y + 1
End If
temp2 = Mid(temp, 7, 2)
temp4 = Mid(temp, 5, 2)
temp3 = "00"
If (temp2 = temp3) And (temp4 <> "00") Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
temp3 = x
temp7 = "idx" & temp3
.Add temp6, tvwChild, temp7, temp4
x = x + 1
End If
If temp2 <> "00" Then
Range("E2").Select
temp3 = "=VLOOKUP(" & temp & ",C[-4]:C[-3],2,FALSE)"
ActiveCell.FormulaR1C1 = temp3
temp3 = Range("E2").Value
temp4 = temp & " - " & temp3
.Add temp7, tvwChild, , temp4
End If
Next
nd.Expanded = False
End With
End Sub