Dropdown zum Öffnen von Tabellenblättern

Hallo zusammen,
ich bin noch ganz neu in diesem Forum und hoffe ihr könnt mir bei meinem Anliegen helfen:
Ich würde gerne ein Dropdown Menü auf dem "Start" Arbeitsblatt erstellen, wo alle Titel der anderen erstellten Arbeitsblätter (Kurse) aufgelistet sind.
Dazu kommt, dass ich gerne bei der Auswahl des jeweiligen Arbeitsblattes aus dem Dropdown Menü, auch den jeweiligen Inhalt quasi im "Start"- Arbeitsblatt vorliegen habe.
Auch sollen alle anderen Arbeitsblätter dann ausgeblendet werden, außer ich befinde mich wieder im "Start" Arbeitsblatt.
Ich habe es bereits geschafft (in einer anderen Datei) mithilfe von Makros eine User-Form zu erstellen und das Dropdown Menü einzurichten.. Bei der Auswahl des jeweiligen Kurses springe ich jedoch auf das andere Arbeitsblatt.. Das würde ich gerne vermeiden und wie bereits beschrieben den Inhalt quasi in den Start "kopieren".
Dazu der habe ich folgenden Code:

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Private Sub ComboBox1_Change()
ActiveWorkbook.Sheets(Me.ComboBox1.Value).Activate
End Sub

Ich bedanke mich schonmal im Voraus! :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim I As Long Application.EnableEvents = False Me.ComboBox1.Clear For I = 1 To Sheets.Count Me.ComboBox1.AddItem Sheets(I).Name Next Me.ComboBox1.Value = ActiveSheet.Name Application.EnableEvents = True End Sub Private Sub ComboBox1_Change() ActiveWorkbook.Sheets(Me.ComboBox1.Value).Activate End Sub

Private sub Userform_Initialize() ReDim sn(Sheets.Count-1) For Each it In Sheets sn(it.Index-1) = it.Name Next Combobox1.List=sn caption=" " combobox1.value=activesheet.name caption="" End Sub Private Sub Combobox1_Change() if caption>" "and combobox1.listindex>-1 then sheets(combobox1.value).activate End Sub

Public Change_erlaubt As Boolean Private Sub Userform_Initialize() Dim W As Worksheet With Me.ComboBox1 .Clear For Each W In Worksheets .AddItem = W.Name Next Change_erlaubt = False 'könnte sogar entfallen, da vor der Initialisierung auf Default-Zustand "False". .Value = ActiveSheet.Name Change_erlaubt = True End With End Sub Private Sub ComboBox1_Change() On Error Resume Next If Change_erlaubt Then Worksheets(ComboBox1.Value).Activate End Sub

Hallo zusammen,
danke euch erstmal für eure Hilfe und die Zeit die ihr euch genommen habt. :-)
Ich bin leider ganz neu im Bereich VBA, deshalb verstehe ich nicht alles so schnell. Ich habe die Codes versucht zu übernehmen, allerdings funktionierte das leider nicht :/.
Ich habe nun über das eingefügte ActiveX Kombinationsfeld es geschafft die Dropdown Funktion mit allen Namenblättern eingerichtet. Jetzt fehlt mir nur noch, dass bei Auswahl des jeweiligen Blattes, sich der jeweilige Inhalt direkt unter dem Kombinationsfeld öffnet.
Das ist der Code den ich jetzt verwende:

Private Sub ComboBox1_Change()
End Sub

Private Sub Worksheet_Activate()
Me.ComboBox1.Clear
Dim Sheet
For Each Sheet In ThisWorkbook.Sheets
    Me.ComboBox1.AddItem Sheet.Name
    Next Sheet
End Sub

Der Link zur Datei: https://www.herber.de/bbs/user/157376.xlsm
Ich hoffe ihr könnt mir da weiterhelfen, da ich die Datei bis morgen brauche.
Vielen herzlichen Dank!
Ramo

Beliebteste Forumthreads (12 Monate)

Dropdown zum Öffnen von Tabellenblättern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdown zum Öffnen von Tabellenblättern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread