ich habe in mein Makro ein TreeView-Element eingebaut. Funktioniert auch tadellos. Nur wenn ich dieses Element auch noch mit Images haben möchte, erhalte ich jedesmal die Meldung: ImageList muss erst initialisiert werden. Irgendjemand eine Ahnung, wie man das macht?
So sieht mein Code aus:
Sub userform_initialize()
Dim ebene1 As Node
Dim ebene2 As Node
Dim ebene3 As Node
Dim ebene4 As Node
Set ebene1 = TreeView1.Nodes.Add(Text:=Sheets(1).Cells(1, 1).Value)
For i = 2 To 15
If Sheets(1).Cells(i, 2).Value <> "" Then
Set ebene2 = TreeView1.Nodes.Add(relative:=ebene1, relationship:=tvwChild, Text:=Sheets(1).Cells(i, 2).Value, Image:=1, SelectedImage:=2)
ebene2.Sorted = True
ElseIf Sheets(1).Cells(i, 3).Value <> "" Then
Set ebene3 = TreeView1.Nodes.Add(relative:=ebene2, relationship:=tvwChild, Text:=Sheets(1).Cells(i, 3).Value, Image:=1, SelectedImage:=2)
ebene3.Sorted = True
ElseIf Sheets(1).Cells(i, 4).Value <> "" Then
Set ebene4 = TreeView1.Nodes.Add(relative:=ebene3, relationship:=tvwChild, Text:=Sheets(1).Cells(i, 4).Value, Image:=1, SelectedImage:=2)
ebene4.Sorted = True
End If
Next
'ebene1.Expanded = True
ebene1.Sorted = True
End Sub