Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

per Hyperlink auf ausgeblendetes Blatt springen

Forumthread: per Hyperlink auf ausgeblendetes Blatt springen

per Hyperlink auf ausgeblendetes Blatt springen
23.03.2004 12:51:27
Susanne Kuntz
Guten Tag zusammen,
ich habe ein Problem bezügl. ausgeblendetes Arbeitsbatt:
mit einem Hyperlink soll auf ein ausgeblendetes Arbeitsblatt gesprungen werden zum Bearbeiten, danach per Hyperlink wieder retour.
Das ausgebl. Arbeitsblatt soll auch ausgeblendet bleiben u. nur für Dateneingabe ( zu erreichen über Hyperlink ) sichtbar sein.
Gibt es hier einen Trick? Denn wenn ich das Blatt ausgeblendet habe, dann funktioniert das mit dem Hyperlink nicht.
Hat jemand eine Idee?
Vielen Dank für die Unterstützung.
Gruss
Susanne Kuntz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per Hyperlink auf ausgeblendetes Blatt springen
23.03.2004 12:53:53
Bert
Das geht schlicht nicht, das Blatt muss zuvor per VBA eingeblendet werden.
Bert
AW: per Hyperlink auf ausgeblendetes Blatt springen
23.03.2004 13:20:03
Hajo_Zi
testantwort
AW: per Hyperlink auf ausgeblendetes Blatt springen
23.03.2004 13:39:59
Josef Ehrensberger
Hallo Susanne!
Zuerst möchte ich dich darauf hinweisen, das es nicht
nötig ist für ein und dieselbe Frage mehrere Threads
zu eröffnen.
Wenn du mit den erhaltenen Antworten nichts anfangen kannst,
dann markiere doch einfach den Beitrag als Offen!(Thread weiter anzeigen)
Nun zu deinem Problem!
Wie Bert schon gesagt hat ist das nur mit VBA möglich.
Diese beiden Codes sollten es tun
'Tabelle mit Hyperlink

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!"))
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub

'Tabelle die ausgeblendet sein soll

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub

Rechtsklick auf den entsprechenden Tabellenreiter > Code anzeigen
und im rechten fenster den Code einfügen.
Gruß Sepp
Anzeige
AW: per Hyperlink auf ausgeblendetes Blatt springen
23.03.2004 17:10:35
Susanne Kuntz
Hallo nochmal,
die beiden Codes haben toll funktioniert, doch leider nur bei einem Blatt. In Summe habe ich 6 Arbeitsblätter, die alle ausgeblendet und per Hyperlink erreicht werden sollen.
Wie kann ich dies realisieren?
Danke für die Unterstützung
Gruss, Susanne
AW: per Hyperlink auf ausgeblendetes Blatt springen
23.03.2004 19:01:04
Josef Ehrensberger
Hallo Susanne!
Ich vermute mal, das die Tabellennamen Leerzeichen enthalten!
Ändere den Code:


' **************************************************************
'  Modul:  Tabelle1  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub


Code eingefügt mit: Excel Code Jeanie
Dann sollte es funktionieren.
Wenn nicht, dann lade doch die Datei mal hoch.

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.

(Sir Winston Churchill)


Anzeige
;
Anzeige

Infobox / Tutorial

Hyperlinks zu ausgeblendeten Excel-Blättern nutzen


Schritt-für-Schritt-Anleitung

Um mit Hyperlinks auf ein ausgeblendetes Arbeitsblatt in Excel zu springen, benötigst du VBA (Visual Basic for Applications). Befolge diese Schritte:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Finde das Ziel-Arbeitsblatt:

    • Klicke im Projektfenster auf das entsprechende Arbeitsblatt, für das du den Hyperlink erstellen möchtest.
  3. Code einfügen:

    • Füge den folgenden Code in das Codefenster ein:
    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
       Dim strAdr As String
       Dim strSht As String
       strAdr = Target.SubAddress
       strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
       Sheets(strSht).Visible = xlSheetVisible
       Sheets(strSht).Activate
    End Sub
  4. Deaktivierungs-Code hinzufügen:

    • Füge den folgenden Code in das gleiche Fenster ein, um das Blatt nach dem Verlassen wieder auszublenden:
    Private Sub Worksheet_Deactivate()
       Me.Visible = xlSheetVeryHidden
    End Sub
  5. Speichern und Testen:

    • Schließe den VBA-Editor und teste den Hyperlink in deiner Excel-Datei.

Häufige Fehler und Lösungen

  • Hyperlink funktioniert nicht:

    • Stelle sicher, dass das Blatt nicht nur ausgeblendet, sondern auch mit xlSheetVeryHidden ausgeblendet ist.
  • Tabellennamen mit Leerzeichen:

    • Wenn der Tabellennamen Leerzeichen enthält, kann dies den Code stören. Nutze den modifizierten Code, der Replace verwendet, um solche Probleme zu vermeiden.

Alternative Methoden

Falls du nicht mit VBA arbeiten möchtest, könntest du alternativ:

  • Makros verwenden: Erstelle ein Makro, das beim Klicken auf einen Button das ausgeblendete Blatt sichtbar macht.
  • Schaltflächen nutzen: Füge Schaltflächen in dein Arbeitsblatt ein, die den VBA-Code ausführen und so die Navigation zu den ausgeblendeten Blättern erleichtern.

Praktische Beispiele

Angenommen, du hast mehrere ausgeblendete Blätter, wie "Daten1", "Daten2" und "Daten3". Du kannst den obigen VBA-Code mehrfach einsetzen, um mit verschiedenen Hyperlinks auf diese Blätter zuzugreifen. Achte darauf, dass du den Code entsprechend anpasst, wenn du mehrere Hyperlinks verwendest.


Tipps für Profis

  • Dokumentation: Halte deinen Code gut dokumentiert, damit du später Änderungen leichter vornehmen kannst.
  • Sichern: Erstelle regelmäßige Backups deiner Datei, insbesondere wenn du mit VBA arbeitest.
  • Testen: Teste den Hyperlink in verschiedenen Szenarien, um sicherzustellen, dass alles reibungslos funktioniert.

FAQ: Häufige Fragen

1. Kann ich Hyperlinks zu mehreren ausgeblendeten Blättern erstellen?
Ja, du kannst den VBA-Code für jedes Blatt anpassen, um Hyperlinks zu erstellen, die auf unterschiedliche Blätter verweisen.

2. Was mache ich, wenn mein Hyperlink nicht funktioniert?
Überprüfe, ob der Code korrekt eingegeben wurde und ob das Blatt wirklich ausgeblendet ist. Stelle sicher, dass der Tabellennamen korrekt geschrieben ist.

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