Tabellenblätter über Zellinhalt wechseln
12.12.2022 20:12:15
Paul
da ich nach langer Recherche bisher leider auf keine zielführenden Ergebnisse gestoßen bin, versuche ich auf diese Weise mein Glück.
Ich möchte in einem dynamischen Formular, welches weitgehend fertiggestellt ist, eine Vereinfachung in der Tabellenblatt Struktur vornehmen.
Ich habe 5 Formular Tabellenblätter die über ein Dropdown Menü auf einer Art Startseite ausgewählt werden können.
Es kann jeweils immer nur ein Tabellenblatt geöffnet werden, will man ein anderes öffnen so muss man über einen Button zurück auf die Startseite und im Dropdown eine andere Formular Art auswählen.
Jetzt zum Hauptproblem:
Jedes Formular verfügt über einen Hilfebereich. auf den man über einen Button zugreifen kann und von dem man wieder zurück zum ausgewählten Formular gelangt.
Dies ist bisher so angelegt, dass jedes der 5 Formulare ein Hilfebereich Sheet hat und man somit eindeutig wieder zum zuletzt ausgewählten Tabellenblatt gelangen kann.
Da der Hilfebereich aber bei allen 5 Formularen Gleich ist, möchte ich den Hilfebereich auf ein Sheet statt 5 Sheets reduzieren.
Da ich vom Hilfebereich immer zum zuletzt ausgewählten Formular zurück möchte, habe ich versucht über die Dropdown variable den Sheet Namen zu erzeugen, über VBA auszulesen und im Code über Sheets("Tabellenname").Visible = True einzusetzen. Dies hat leider bisher nicht funktioniert und es wurde mir ein Laufzeitfehler "Index außerhalb des gültigen Bereichs" angezeigt.
Normalerweise wird der Name des Tabellenblatts ja in " " gepackt. Da ich hier aber mit dem Wert der Zelle arbeiten möchte habe ich es in dem Beispiel einfach mal raus genommen.
Sub Makro21_Hilfebereich_Zurück()
Wert = Worksheets("Hilfstabelle").Cells(5.2).Value
Sheets(Wert).Visible = True
ActiveSheet.Visible = False
Sheets(Wert).Select
Range("A1").Select
End Sub
Ich hoffe ich konnte mein Problem gut erläutern und freue und bedanke mich für Antworten im Voraus!
Viele Grüße
Paul