Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum
Einloggen, um private Nachrichten zu lesen
Login
Downloads

  treeview alles im 1. Child
Neues Thema eröffnenNeue Antwort erstellen Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe
Autor Nachricht
diersi
Newbie
Newbie


Anmeldedatum: 10.04.2006
Beiträge: 10
BeitragVerfasst am: 05.05.2006, 10:16 Nach oben
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
Benutzer-Profile anzeigenPrivate Nachricht senden
diersi
Newbie
Newbie


Anmeldedatum: 10.04.2006
Beiträge: 10
BeitragVerfasst am: 05.05.2006, 11:34 Nach oben
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
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge HILFE ; Rechts von der Schrift taucht... tapatua Microsoft Word Hilfe 5 23.11.2008, 15:52 Letzten Beitrag anzeigen
Keine neuen Beiträge WENN(Excel;Probmlem;alles gut) :-D Brenhard75 Microsoft Excel Hilfe 4 05.08.2008, 16:13 Letzten Beitrag anzeigen
Keine neuen Beiträge ALLES WEG! koonkiuman Microsoft Word Hilfe 0 27.01.2008, 18:32 Letzten Beitrag anzeigen
Keine neuen Beiträge Installiert, eingerichtet, neugestart... Konsorte Microsoft Outlook Hilfe 1 07.01.2008, 22:33 Letzten Beitrag anzeigen
Keine neuen Beiträge Zeit ist alles, € fehlen ichbrauchehilfe Microsoft Excel Hilfe 6 30.06.2007, 15:23 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de