Tabellenblatt ausblenden jedoch Zugriff Hyperlink

Forumthread: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

26.01.2005 08:45:17

Sepp

Guten Morgen erst einmal.
Habe mich hier im Forum mal ein bisschen umgeschaut. Bin echt erstaunt wieviel kompetente Leute sich hier "tummeln" -- SUPER!!
Ich hätte mal eine Frage. Vorab möchte ich sagen, dass es schon mal ein ähnliches Thema gab, mir aber nicht wirklich geholfen hat.
Wollte in meiner Arbeitsmappe mehrere (30) Tabellenblätter ausblenden bis auf eins. Auf diesem einzigen Blatt sollen die Links zu den verschiedenen ausgeblendeten Tabellenblätter sein.
Sprich man soll sie unten nicht sehen aber über Hyperlink anschauen können.
Wie kann ich das machen. Kann sie zwar über die VB Umgebung ausblenden usw. aber zugreifen klappt da dann irgendwie nimmer. Falls jemand eine Lösung hat dies bitte bitte ausführlich schilden, da ich noch nicht so erfahren bin.
Vielen Dank schon mal im Voraus.
Mfg
Sepp Maier

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

26.01.2005 12:08:41

Roland

Hallo Sepp,
pack mal den folgenden Code in dein Übersichtsblatt:


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Ziel As String
Ziel = Target.SubAddress
Ziel = Left(Ziel, InStr(Ziel, "!") - 1)
With Sheets(Ziel)
.Visible = True
.Activate
End With
End Sub

Wenn du das Blatt nach dem Betrachten wieder unsichtbar machen willst, müsstest du das noch ergänzen (ebenfalls in das Übersichtsblatt):


Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Übersichtsblatt" Then ws.Visible = xlSheetHidden
Next
End Sub

Viel Spass Roland

AW: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

Sepp

Hallo Roland.
Vorab möchte ich mich bei dir schon mal bedanken, doch leider funktioniert es nicht.
Deswegen habe ich noch fragen.
Als erstes blende ich mal alle Tabellenblätter die ich nicht mehr sehen möchte aus. ( Mit VB oder Einfach über Ausblenden?)
Dann geh ich in mein Tabellenblatt wo sich die ganzen Hyperlinks befinden (in VB)
Und da mach ich dann ihren Code rein richtig?!. Oder muss er da rein, wo es für die komplette Mappe gültig ist?
Muss ich ihren Code noch anpassen?
Vielen Dank für Ihre Mühe!!!
Gruß Sepp

AW: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

26.01.2005 13:44:43

Roland

Hallo Sepp,
mit Version Excel 97 funktioniert mein Code nicht, aber du verwendets doch Excel XP!?
. . . Mit VB oder Einfach über Ausblenden?): das ist egal
. . . Dann geh ich in mein Tabellenblatt wo sich die ganzen Hyperlinks befinden (in VB)
Und da mach ich dann ihren Code rein richtig?!:
Erst mit Alt-F11 den Visual-Basic-Editor öffnen, dann oben links im Projektexplorer doppelt auf das Blatt mit den Hyperlinks klicken und dann den Code so wie er ist in das rechte Fenster hinein.
Ersetzt werden muss nur der Name "Übersichtsblatt" durch den tatsächlichen Namen.
Wenns Probleme gibt melde dich einfach noch mal.
Gruß Roland

AW: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

Sepp

Vielen Vielen Dank!!!!!
Sie haben mir echt geholfen.
Gruß Sepp

Danke für die Rückmeldung o.w.T.

26.01.2005 16:08:17

Roland

Infobox / Tutorial

Tabellenblatt ausblenden und Zugriff über Hyperlink ermöglichen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Tabellenblätter ausblenden:
- Um ein Excel Tabellenblatt auszublenden, rechtsklicke auf den Tab des Blattes und wähle „Ausblenden“.
- Alternativ kannst du dies auch über die Visual-Basic-Umgebung (VBA) erledigen. Öffne dazu den VBA-Editor mit Alt + F11, wähle dein Arbeitsblatt aus und füge den folgenden Code ein:
```
Sheets("NameDeinesBlattes").Visible = xlSheetVeryHidden
```
Hyperlinks erstellen:
- Erstelle in deinem sichtbaren Arbeitsblatt die Hyperlinks zu den ausgeblendeten Blättern. Dies kannst du tun, indem du den Text markierst, mit der rechten Maustaste klickst und „Hyperlink“ wählst. Gib im Feld „Link zu“ die Adresse des Blattes ein, z.B. #NameDeinesBlattes.

Code für Hyperlink-Zugriff einfügen:

Füge den folgenden Code in den VBA-Editor unter dem entsprechenden Arbeitsblatt ein (dort, wo die Hyperlinks sind):

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Ziel As String
Ziel = Target.SubAddress
Ziel = Left(Ziel, InStr(Ziel, "!") - 1)
With Sheets(Ziel)
   .Visible = True
   .Activate
End With
End Sub

Blätter nach dem Zugriff wieder ausblenden:

Um die Tabellenblätter nach der Verwendung wieder auszublenden, füge folgenden Code ebenfalls in das Arbeitsblatt ein:

Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "Übersichtsblatt" Then ws.Visible = xlSheetHidden
Next
End Sub

Häufige Fehler und Lösungen

Hyperlinks funktionieren nicht: Stelle sicher, dass der Name des Blattes im Hyperlink und im Code korrekt angegeben ist. Achte auf die Schreibweise.
Tabellenblatt bleibt sichtbar: Überprüfe, ob der Code zum Ausblenden der Blätter korrekt in das richtige Arbeitsblatt eingefügt wurde.
VBA-Code wird nicht ausgeführt: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros und aktiviere die Makros.

Alternative Methoden

Excel Register ausblenden: Du kannst die Sichtbarkeit der Registerkarten ganz entfernen, indem du die „Optionen“ in Excel aufrufst und die Option „Registerkarten für Arbeitsblätter anzeigen“ deaktivierst.
Excel Blatt verstecken: Nutze die Funktion xlSheetVeryHidden im VBA, um das Blatt so zu verstecken, dass es nicht mehr über das Menü einblendbar ist.

Praktische Beispiele

Hyperlink zu einem ausgeblendeten Blatt:
- Angenommen, du hast ein Blatt namens „Daten“. Erstelle einen Hyperlink mit dem Text „Daten anzeigen“ und verlinke es zu #Daten.
VBA zur Wiederherstellung:
- Falls du ein ausgeblendetes Blatt wieder einblenden möchtest, kannst du den folgenden VBA-Befehl verwenden:
```
Sheets("Daten").Visible = xlSheetVisible
```

Tipps für Profis

Code anpassen: Achte darauf, den Namen des Übersichtsblattes im Code anzupassen, damit alles reibungslos funktioniert.
Dokumentation: Halte deine VBA-Codes gut dokumentiert, um später Anpassungen vornehmen zu können.
Sicherung: Erstelle regelmäßig Sicherungskopien deiner Arbeitsmappe, besonders vor größeren Änderungen.

FAQ: Häufige Fragen

1. Wie kann ich ein ausgeblendetes Blatt in Excel wieder einblenden? Um ein ausgeblendetes Blatt wieder einzublenden, klicke mit der rechten Maustaste auf einen Tab und wähle „Einblenden“. Du kannst auch VBA verwenden:

Sheets("NameDeinesBlattes").Visible = xlSheetVisible

2. Kann ich Hyperlinks auf ausgeblendete Blätter setzen? Ja, du kannst Hyperlinks zu ausgeblendeten Blättern setzen, indem du die oben beschriebenen Schritte befolgst. Der Zugriff erfolgt über VBA, wenn das Hyperlink aktiviert wird.

Beliebteste Forumthreads (12 Monate)

Tabellenblatt ausblenden jedoch Zugriff Hyperlink

Forumthread: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Tabellenblatt ausblenden und Zugriff über Hyperlink ermöglichen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Tabellenblatt ausblenden jedoch Zugriff Hyperlink

Forumthread: Tabellenblatt ausblenden jedoch Zugriff Hyperlink

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Tabellenblatt ausblenden und Zugriff über Hyperlink ermöglichen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread