Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Von Sheet zu Sheet mit Hilfe von VBA





Frage

Hallo, ich habe eine Datei, die aus 3 verschiedenen "Typen" von Sheets besteht. 1. Eine "Navigationsseite" 2. Übersichtsseiten (2-3 Sheets) 3. Über 30 Steckbriefseiten die immer gleich aufgebaut sind. In der Navigationsseite habe ich Links auf die Übersichtsseiten gesetzt (kein Problem) Da ich aber aufgrund der Übersichtlichkeit keine 30 Links für die einzelnen Steckbriefe machen möchte, habe ich mir folgendes überlegt: Ich möchte gerne eine ComboBox oder ein anderes Drop-Down Menü haben, bei dem nach der Auswahl automatisch zu der entsprechenden Seite gesprungen wird. Den Dateninput für die ComboBox habe ich als Liste drin. Gibt es eine Möglichkeit, den Output der ComboBox (Cell Link) als Input für einen CommandButton zu nutzen? (Dann bekomme ich das über Select Case schon irgendwie hin) Oder hat jemand eine bessere Idee? Vielen Dank

Antwort 1 von Beverly

Hi Jan,

warum verwendest du nicht einfach das Change Ereignis der ComboBox, z.B.

Private Sub ComboBox1_Change()
    Worksheets(ComboBox1.Value).Activate
End Sub


Bis später,
Karin

Antwort 2 von JanE

Hallo Karin,

vielen Dank für die Antwort. Leider klappt es noch nicht ganz. Mit der Combox aus den Steuerelement Toolbox, bekomme ich den Code hin, allerdings kann ich da nicht so einfach den Input definieren, wie mit der ComboBox aus der FormularToolbox. Bei der bekomme ich mit folgendem Code

Private Sub Dropdown16_BeiÄnderung()
Worksheets(Dropdown16.Value).Activate
End Sub


die Fehlermeldung 424: Objekt erforderlich
und mit der Excel-Hilfe kann ich leider nicht so wahnsinnig viel anfangen

Für Hilfe immer dankbar
Jan

Antwort 3 von JanE

Hab es selber geschafft,
Vielen Dank nochmal
Jan