VBA BÄUME

[HangManAtWork]

Hallo zusammen,

wer braucht schon Bäume???? Trotzdem soll ich in VBA einen erstellen ( Ein normaler Baum braucht 5 jahre bis er wächst ).

Habe folgenden Quellcode zustande gebracht:

Private Sub Anzeigen_Click()

testBaum.Nodes.Clear

Set BenutzerNode = testBaum.Nodes.Add(, testBaum, "A001", "Hotline")

Set ArbeitNode = testBaum.Nodes.Add(BenutzerNode, testBaumChild, "A001001", "Kunde")

Set ArbeitNode = testBaum.Nodes.Add(BenutzerNode, testBaumChild, "A001001", "GAU")

Set ArbeitNode = testBaum.Nodes.Add(BenutzerNode, testBaumChild, "A001001", "System")

Set ArbeitNode = testBaum.Nodes.Add(BenutzerNode, testBaumChild, "A001001", "Prog")

End Sub

Ergebnis:

Bekomme keinen Baum angezeigt....

Who can help me????

[Mister A]

hast du sichergestellt, daß 'testBaum' = tvwfirst, also = 0 bzw 'testBaumChild' = tvwchild = 4 ist????