TreeView-Element auswählen
23.12.2003 14:21:56
Sabine
ich verwende folgenden Code, um ein Treeview mit allen geöffneten Arbeitsmappen und Tabellenblättern zu füllen:
Private Sub UserForm_Initialize()
TreeView1.ImageList = ImageList1
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, Image:=1)
For Each wks In wkb.Worksheets
Set ndeSecond = .Nodes.Add(relative:=ndeMain, _
relationship:=tvwChild, _
Text:=wks.Name, Image:=2)
ndeSecond.Sorted = True
Next wks
Next wkb
ndeMain.Expanded = False
ndeMain.Sorted = True
End With
End Sub
Nun meine Frage: wie schaffe ich es, dass nach dem Einlesen der Mappen und Blätter die aktuelle verwendete Mappe selektiert/ausgewählt wird.
Hat jemand eine Idee?
Grüße und Danke im Voraus
Sabine
PS: Frohe Weihnachten