TreeView: aktive Arbeitsmappe markieren
08.01.2004 18:59:30
Martin
die Frage wurde im Forum schon einmal beantwortet, finde sie aber nicht mehr.
Ich verwende folgenden Code, um alle Arbeitsmappen und Tabellenblätter in ein TreeView einzulesen:
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 = False
ndeMain.Sorted = True
End With
Wie schaffe ich es, dass er das aktive Arbeitsblatt im TreeView-Element markiert?
Ich schaffs nicht... :-(
Grüße und Danke im Voraus
Martin
PS: Gutes neues!