Hallo!
Die bisher gefundenen Beispiel bringen nicht die Lösung. Daher hier die Frage.
Wie fülle ich ein Treeview aus CSV? Und wie wird das später verarbeitet?
Hier mal mein VBA-Code (damit ihr euch vorstellen könnt was ich vorhabe).
Zum Füllen:
Hinweis: Der Inhalt für das Treeview steht in Spalte 5 der Tabelle
Code
Dim i As Long
Dim strTag As String
strTag = Replace(ActiveSheet.Name, "ADMX ", "")
strTag = Replace(strTag, "2016", "")
With frmGPO.TreeView1
.Nodes.Clear
.Nodes.Add , tvwFirst, "Hauptmenü", strTag
For i = 3 To ThisWorkbook.Sheets(frmGPO.lblSheet.Caption).Range("A" & Rows.Count).End(xlUp).Row
.Nodes.Add "Hauptmenü", tvwChild, "M" & i, ThisWorkbook.Sheets(ActiveSheet.Name).Range("A" & i).Offset(0, 4).Value
Next i
.Nodes("Hauptmenü").Expanded = True
End With
Alles anzeigen
Dieser Code wird bei Klick auf ein Node ausgeführt:
Hinweis: Die Sprache wird beim Öffnen der Userform ausgelesen und der entsprechende Eintrag in der Combobox aktiviert. Bei Klick auf ein Note werden andere Labels gefüllt.
Code
Dim objNode As MSComctlLib.Node
Set objNode = TreeView1.SelectedItem
If objNode.Index = 1 Then Exit Sub
lblStart.Caption = objNode.Index + 1
If frmGPO.ComboBox1.Value = "Deutsch" Then
lngLangCell = 1
lngEins = 0
lngVier = 4
ElseIf frmGPO.ComboBox1.Value = "English" Then
lngLangCell = 2
lngEins = 1
lngVier = 5
Else
lngLangCell = 3
lngEins = 2
lngVier = 6
End If
With ThisWorkbook.Sheets(frmGPO.lblSheet.Caption).Range("A" & CStr(frmGPO.lblStart.Caption))
frmGPO.lblLang.Caption = .Offset(0, lngEins).Value
frmGPO.lblKurz.Caption = .Offset(0, lngVier).Value
Alles anzeigen
Danke!
Gruß, René
P.S.: Gibt es für AutoIt ein vernünftiges Handbuch (Printmedium oder Online)? Nach Möglichkeit in deutscher Sprache.