Folgende Frage: Ich möchte, dass beim Anklicken einer Zelle (oder einer Textbox oder so ähnlich) ein bestimmtes Tabellenblatt geöffnet wird.
Wie krieg ich das hin?
Vielen Dank für Eure Hilfe,
Marius
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$7" Then Worksheets("Tabelle4").Activate
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$1" Then Worksheets("Tabelle1").Activate
End Sub
Um in Excel bei Klick auf eine Zelle ein anderes Tabellenblatt anzuzeigen, kannst Du die folgenden Schritte befolgen:
Öffne Deine Excel-Datei und gehe zu dem Tabellenblatt, in dem Du die Zellen verlinken möchtest.
Wechsle in den VBA-Editor. Drücke ALT + F11, um den Editor zu öffnen.
Finde das entsprechende Tabellenblatt im Projektfenster (links) und doppelklicke darauf.
Füge den folgenden VBA-Code ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$1" Then Worksheets("Tabelle1").Activate
If Target.Address = "$B$2" Then Worksheets("Tabelle2").Activate
If Target.Address = "$B$3" Then Worksheets("Tabelle3").Activate
End Sub
Schließe den VBA-Editor und kehre zu Deiner Excel-Datei zurück.
Teste die Funktion, indem Du auf die Zellen B1, B2 und B3 doppelklickst. Du solltest auf die entsprechenden Tabellenblätter springen.
Fehler: Nichts passiert beim Doppelklick
Lösung: Stelle sicher, dass der Code im richtigen Tabellenblatt eingefügt wurde. Der Code muss im Codefenster des spezifischen Tabellenblatts stehen, nicht in einem Modul.
Fehler: Falsches Tabellenblatt öffnet sich
Lösung: Überprüfe die Adressen der Zielzellen im Code. Achte darauf, dass die Adressen korrekt sind und den Zellen in Deinem Blatt entsprechen.
Hyperlinks: Du kannst auch Hyperlinks verwenden, um in Excel mit einem Klick auf eine Zelle ein anderes Tabellenblatt zu öffnen:
Einfügen > Hyperlink.Aktuelles Dokument und gib den Namen des Ziel-Tabellenblatts an.Formeln: Verwende die HYPERLINK-Funktion, um einen Link auf eine Zelle in einem anderen Tabellenblatt zu erstellen:
=HYPERLINK("#'Tabelle1'!A1", "Gehe zu Tabelle1")
Beispiel 1: Du möchtest, dass der Doppelklick auf Zelle B1 das Tabellenblatt "Tabelle1" öffnet. Der passende VBA-Code sieht so aus:
If Target.Address = "$B$1" Then Worksheets("Tabelle1").Activate
Beispiel 2: Wenn Du mehrere Zellen verlinken möchtest, erweitere den Code wie folgt:
If Target.Address = "$B$1" Then Worksheets("Tabelle1").Activate
If Target.Address = "$B$2" Then Worksheets("Tabelle2").Activate
Erweiterte VBA-Anpassungen: Du kannst den Code auch so anpassen, dass er auf Bereiche anstatt auf einzelne Zellen reagiert. Zum Beispiel:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$B$1": Worksheets("Tabelle1").Activate
Case "$B$2": Worksheets("Tabelle2").Activate
Case "$B$3": Worksheets("Tabelle3").Activate
End Select
End Sub
Verwendung von Steuerelementen: Ziehe in Erwägung, Steuerelemente wie Schaltflächen oder Textfelder zu verwenden, die beim Klicken ein Tabellenblatt öffnen. Du kannst diese mit dem gleichen Makro verknüpfen.
1. Wie kann ich einen Link auf eine Zelle in einem anderen Tabellenblatt erstellen?
Verwende die HYPERLINK-Funktion oder Hyperlinks über das Menü "Einfügen".
2. Was passiert, wenn ich den VBA-Code nicht richtig einfüge?
Wenn der Code nicht richtig eingefügt wird, wird die Aktion beim Doppelklick nicht ausgeführt. Überprüfe, ob der Code im richtigen Blatt ist und die Adressen korrekt sind.