hab auf meine EXCEL CD das nachfolgende Makro gefunden (133301v.xls).
Das ist das was ich schon lange gesucht habe.
Nun habe ich eine Personl.xls, in der ich einen zusätzlichen Menüpunkt mit zusätzlichen Funktionen (Makros, die einwandfrei arbeiten) habe die ich oft nutze.
Habe natürlich dieses tolle Makro aus 133301v.xls hier eingebunden.
Nun zu meinem Problem, nach dem Start des Makros erscheint die Fehlermeldung Kompilierungs-Fehler in verborgenem Modul: frmTreeViewSample.
Was habe ich hier falsch gemacht ?
Option Explicit
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub TreeView1_Click()
With TreeView1.SelectedItem
If .Children = False Then
Workbooks(.Parent.Text).Worksheets(.Text).Activate
Else
Workbooks(TreeView1.SelectedItem.Text).Activate
End If
End With
End Sub
Private Sub UserForm_Initialize()
Dim wkb As Workbook
Dim wks As Worksheet
Dim ndeMain As Node, ndeSecond As Node
Dim iCounter As Integer
With TreeView1
For Each wkb In Workbooks
iCounter = iCounter + 1
Set ndeMain = .Nodes.Add(Text:=wkb.Name)
For Each wks In wkb.Worksheets
Set ndeSecond = .Nodes.Add(relative:=ndeMain, _
relationship:=tvwChild, _
Text:=wks.Name)
ndeSecond.Sorted = True
Next wks
Next wkb
ndeMain.Expanded = True
ndeMain.Sorted = True
End With
End Sub
Danke im voraus für eure Hilfe
Richard