Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drop-Down-Feld

Forumthread: Drop-Down-Feld

Drop-Down-Feld
19.11.2005 08:07:30
volleybaerchen
Hallo,
in meinem Programm werden je nach Auswahl eines Optionsfeldes unterschiedliche Tabellenblätter eingeblendet (z. B. Blatt2, Blatt4, Blatt5 und Blatt8) und andere ausgeblendet(Blatt1, 3, 6 und 7). Die Blätter haben aber unterschiedliche Namen, sind also nicht unter "Blatt" und Schleifennumer ansprechbar.
Nun möchte ich in einer eigenen Menüleiste ein Drop-Down-Feld erzeugen, das alle eingeblendeten Tabellenblätter zur Auswahl anbietet. Leider sind meine VBA-Kenntnisse nur gering. Wer kann mir helfen?
mfg
volleybaerchen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drop-Down-Feld
19.11.2005 08:30:03
Rene
Hi,
eine Möglichkeit wäre die Verwendung des TreeViews.
Dazu legst du eine Form an,
baust ein TreeView ein und legst folgenden Code dahinter:

Private Sub UserForm_Initialize()
Dim wb As Workbook
Dim ws As Worksheet
Dim ndeMain As Node
Dim ndeSub As Node
With TreeView1
For Each wb In Workbooks
Set ndeMain = .Nodes.Add(Text:=wb.Name)
For Each ws In wb.Worksheets
Set ndeSub = .Nodes.Add _
(Relative:=ndeMain, _
Relationship:=tvwChild, _
Text:=ws.Name)
Next ws
ndeMain.Expanded = True
Next wb
End With
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

Dann noch einen Verweis auf die CommonControls gesetzt und los gehts.
gruss René
Bitte Rückmeldung
Anzeige
AW: Drop-Down-Feld
19.11.2005 08:40:25
volleybaerchen
Hallo René,
vielen Dank für den Code. Ich werde ihn heute mittag in mein Programm einbauen.
mfg
volleybaerchen
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige