Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink zu ausgeblendetem Tabellenblatt

Hyperlink zu ausgeblendetem Tabellenblatt
18.06.2007 10:42:00
Gunnar
Hallo Leute,
ich habe den Code aus dem Beitrag
"Tabellenblatt ausblenden jedoch Zugriff Hyperlink von Sepp Maier vom 26.01.2005 08:45:17"
verwendet. Allerdings bleibt der in der Zeile
Ziel = Left(Ziel, InStr(Ziel, "!") - 1)
hängen. Ich verwende Office 2000, das Tabellenblatt, in dem der Hyperlink steht, heißt FondsBarometer, in dem Blatt auf das der Hyperlink verweist, habe ich mit Namen, Einfügen eine Textmarke platziert (Feld A1, Name "FD"), da ich ja bei Definition des Hyperlinks kein spezielles Tabellenblatt auswählen kann. Dieses Blatt heißt Fondsdaten.
Ich hab die Vermutung, dass es mit dem Pfad zusammenhängt, weiß aber keine wirkliche Lösung.
Kann jemand helfen?
Vielen Dank im Voraus.
Gunnar

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
18.06.2007 11:18:00
Chaos
Servus,
bei mir funktioniert das einwandfrei.

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


Das in das Modul "Übersichtsblatt" (musst du anlegen)


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


und das in das Modul wo der Hyperlink hingeht (Ausblenden aller Mappen, außer Übersichtsblatt beim Deaktivieren).
hast du das so gemacht? bin mir allerdings nicht sicher, ob 2000 das kann.
Gruß
Chaos

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
18.06.2007 11:18:00
Chaos
Servus,
bei mir funktioniert das einwandfrei.

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


Das in das Modul "Übersichtsblatt" (musst du anlegen)


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


und das in das Modul wo der Hyperlink hingeht (Ausblenden aller Mappen, außer Übersichtsblatt beim Deaktivieren).
hast du das so gemacht? bin mir allerdings nicht sicher, ob 2000 das kann.
Gruß
Chaos

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
18.06.2007 12:37:00
Gunnar
Hi Chaos,
danke für die Hilfe, aber ich hab es nochmal in einer komplett neuen (leeren) Datei versucht und es funktioniert nicht. Möglicherweise kann Office 2000 damit tatsächlich noch nicht umgehen.
Ich hatte das Problem schon mal mit transparenten Schaltflächen gelöst. Einen Schönheitsfehler gab es dort allerdings auch (weswegen ich dann die Hyperlink-Variante ausprobiert habe). Bei Rückkehr in das Übersichtsblatt ist die zuletzt benutzte Schaltfläche nicht mehr transparent, der darunterliegende Text also nicht mehr sichtbar, gewesen. Der muss aber zwingend sichtbar sein, da sonst der Sinn der Schaltfläche nicht erkennbar ist, weil man CommandButton nicht vertikal beschriften kann. Manuell konnte man den Fehler ganz schnell mit jew. 1 x Bild ab / Bild auf lösen, das kann man aber keinem Geschäftsführer verkaufen... ;-)
Wäre für weitere Hilfestellung zu beiden Varianten sehr dankbar.
Gruss Gunnar

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
18.06.2007 13:23:00
Chaos
Servus Gunnar,
das kann ich auch nicht wirklich nachvollziehen.
Füge aus Grafik Autoformen eine Schaltfläche zu und formatiere diese transparent und ohne Linien (z.B. einfaches Rechteck). Dann erscheint der darunterliegende Text und die Schaltfläche funktioniert trotzdem, ohne dass der Text verschwindet.
Du kannst natürlich auch der Schaltfläche selbst den Text zuordnen.
Geht einwandfrei auf diese Art. Hast du vielleicht einen Command_Button benutzt? da gibt es öfter Schwierigkeiten.
Aber wie gesagt ich habe Office 2003.
Gruß
Chaos

AW: Hyperlink zu ausgeblendetem Tabellenblatt
18.06.2007 18:17:44
Gunnar
Hi Chaos,
ich habe einen CommandButton benutzt, weil die Schaltfläche aus der Symbolleiste Formular (die ich sonst wesentlich lieber benutze) nicht transparent zu machen geht (möglicherweise auch nur eine veraltete Macke von Office 2000). Beim Ausdruck sieht so 'ne Schaltfläche ganz einfach blöd aus.
Der Text ist ja auch immer sichtbar. Lediglich bei der zuletzt benutzten Schaltfläche tritt das Phänomen auf. Ich habe auch schon versucht mit LostFocus oder dem gezielten Aktivieren eines anderen Steuerelements bzw. eines Feldes den Focus von der Schaltfläche zu nehmen, weil ich mal gehört habe, dass das bei transparenten CommandButtons ein Problem ist. Hat aber leider auch nix geholfen.
Den CommandButton kann man auch nicht vertikal beschriften... Ansonsten wäre das Problem auch schon Geschichte.
Jetzt bist du wieder dran... ;-)
Gruss Gunnar

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
19.06.2007 07:41:00
Chaos
naja,
hast du es jetzt mit der Autoform probiert ? Sonst fällt mir momentan nichts mehr ein bzw. evtl. könntest du es noch mit einem Change-Ereignis probieren:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 1 Then
Sheets("Tabelle2").Visible = True
Sheets("Tabelle2").Activate
End If
If Target.Value = 2 Then
Sheets("Tabelle3").Visible = True
Sheets("Tabelle3").Activate
End If
End If
End Sub


und in das jeweilige Arbeitsblatt das Worksheet-Deactivate


Private Sub Worksheet_Deactivate()
Sheets("Tabelle2").Visible = False
End Sub


u.s.w.
Gruß
Chaos

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
19.06.2007 12:41:00
Gunnar
Hi Chaos,
danke für den Tip. Das Change-Ereignis ist 'ne feine Sache, hilft mir hier aber nicht wirklich weiter, weil "Hausfrauen & Vorstände"... Da müssen selbsterklärende Schaltflächen oder Hyperlinks in den Berichten sein, alles andere wird schlichtweg nicht angenommen.
Kann man das Change-Ereignis auch noch anders (Eintrag der Zahl per Hyperlink, MouseMove über Zelle?) auslösen? Sollte dir dazu noch was einfallen, wird dir mein Dank ewig (zumindest bis zum nächsten Beitrag) hinterherschleichen. ;-)
Ich hab aber auch einen winzigen Fortschritt erzielt, indem ich die Codes nochmal gesäubert und Teile in ein anderes Modul verlagert habe. Das hatte zumindest den positiven Effekt, dass jetzt ein einfacher Click in eine beliebige Zelle des Übersichtsblattes genügt, um den Focus von der Schaltfläche zu nehmen.
Also Danke nochmal und bis demnächst.
Gunnar

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
19.06.2007 14:51:00
Gunnar
Hi Chaos,
danke für den Tip, aber das Change-Ereignis hilft mir auch nicht wirklich. Das ist ein Bericht für "Hausfrauen und Vorstände" und insofern werden nur selbsterklärende Schaltflächen und Hyperlinks angenommen. Es sei denn, man kann das Change-Ereignis auch noch anders auslösen?
Ich bin aber auch einen kleinen Schritt weitergekommen. Ich habe die Codes nochmal gesäubert und Teile in ein anderes Modul verschoben und siehe da: Jetzt nimmt ein einfacher Click in einem beliebigen Teil der Tabelle den Focus von der Schaltfläche. Das ist ein Kompromiss, mit dem werde ich vorerst leben müssen.
Auf jeden Fall nochmal vielen Dank für deine Hilfe und bis demnächst.
Gruss Gunnar

Anzeige
AW: Hyperlink zu ausgeblendetem Tabellenblatt
19.06.2007 16:06:31
Chaos
Servus Gunnar,
bin froh, dass das nicht nur bei uns so ist.
Kommt drauf an, wieviele Blätter einzublenden sind . Mitunter kannst du eine Schaltfläche auch mehrfach belegen.
Das Auslösen geht auch anders, kommt drauf an, was du dir vorstellst.
Gruß
Chaos

AW: Hyperlink zu ausgeblendetem Tabellenblatt
19.06.2007 16:51:48
Gunnar
Hi Chaos,
mein Beitrag ist vorhin nicht gleich erschienen, so dass ich gedacht habe, er ist in den Wirren des Netzes abhanden gekommen. Deshalb habe ich nahezu das gleiche ein zweites Mal geschrieben.... War aber offensichtlich nur ein time lag.
Ich hab das Problem gelöst und darf mich zu einer klassischen Selbtsverarschung beglückwünschen: Ich hatte bei den Eigenschaften der CommandButtons "TakeFocusOnClick" noch auf "True" - da kann ja nix werden...
Sorry und bis zum nächsten mal.
Gunnar
Anzeige

305 Forumthreads zu ähnlichen Themen

Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Anzeige
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Anzeige
Hyperlink auf Sheet in anderer Datei
Christoph

Hallo zusammen, mal wieder ein kleines Problem:
Ich lese aus einer Zelle den Text Karteikartenneu\A.xls#'Nachname Vorname Ort'!A4 ein.
Ziel des unten stehenden Codes ist es, im Unterverzeichnis Karteikartenneu die Datei A.xls zu öffnen und das Sheet Nachname Vorname Ort im Vordergrund z...
21.10.2008 08:04:00
Thread-ID: 1017836
6 Beiträge
Hyperlink auf Datenblatt automatisieren
Marc

Hallo,
ich möchte gerne Zellen in der Spalte A (A2-A163) mit Zellen aus einem anderen Tabellenblatt mittels Hyperlink verlinken.
Aufgabe ist die Zellen relativ schnell zu verlinken. Die Zellen A2-A163 müssen mit Zellen 1 der Spalten A-FB verknüpft werden.
Wie kann ich das relativ sc...
31.10.2008 09:58:17
Thread-ID: 1020792
7 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
6
1
5
6
6
2
1
8
6
14
16
2
5
2
2
4
5
4
2
3
5
2