Zelle färben wenn Hyperlink aktiviert wurde

Philipp · 2015-03-04T09:02:00+00:00

Hallo zusammen, ich habe ein kurzes Anliegen an euch... In meiner Excel Datei befinden sich zwei Tabellenblätter. 1.) Kalender 2015 2.) Übersicht Nun werde ich in meinen Jahreskalender 2015 einige Hyperlinks einfügen, damit ich einfacher in das Übersichtsblatt komme. Meine Überlegung war es, dass die Zelle (Kalender) rot eingefärbt wird, wenn der Hyperlink angeklickt wurde. Wie bekomme ich das am besten hin? Habe es schon mit bedingter Formatierung versucht, aber leider ohne Erfolg... Gruß Philipp

…Michael,
nicht bei indirekten Fml-HLs wie =HYPERLINK("…"[;"…"])!
Hallo, Philipp;
es geht nicht ohne VBA aber durchaus mit BedingtFormat-Unterstützung, welches die ZellFärbung unternimmt. Das hat den Vorteil, dass man diese nicht zurücksetzen muss und die Zelle somit ursprüngl jede beliebige Farbe haben kann. Anderenfalls müsste sich das Pgm diese merken.
Das folgd Pgm geht von einer BedingtFormatierg von HL-Zellen per Zellwert-Vgl mit einer benannten Variablen des Blattes aus. Dieser Name wird automatisch bei BlattAktivierung angelegt, falls er nicht schon vorhanden ist (ggf den Wert der ModulKonstanten ändern!). Also zuerst mal auf ein anderes Blatt wechseln, dann auf das Blatt mit den nachfolgden EreignisProzeduren zurückkehren.
Auf alle relevante HLs (auch Fml-HLs!) enthaltende Zellen, die einbezogen wdn sollen, ist dann eine auf den Zellwert bezogene BedingtFormatierung zu legen: Zellwert ist gleich und Fml =HLText (oder der geänderte Name), sowie ZellFarbe einstellen. Im DokumentKlassenModul des relevanten Blattes sind dann folgende EreignisProzeduren anzulegen:

Option Explicit
Const naHLTx$ = "HLText"
Rem Legt ggf f.HL-ZellFärb notwendigen Namen an.
Private Sub Worksheet_Activate()
On Error Resume Next
If IsError(Me.Names(naHLTx)) Then Me.Names.Add naHLTx, "="""""
End Sub
Rem Setzt den Namenswert auf Leer-String zurück.
Private Sub Worksheet_Deactivate()
On Error Resume Next
If IsError(Me.Names(naHLTx)) Then Else Me.Names(naHLTx).Value = "="""""
End Sub
Rem Färbt im ZusammSpiel m.BedingtFormat d.zuletzt angeklickten HL
'   jegl Art; dabei bleibt letzte ZellFärb solange erhalt wie kein
'   and HL (auch o.BedingtFormat!) angeklickt oder d.Blatt gewech-
'   selt wurde; BedingtFormat f.HLZellen muss m.VglsBezug z.blatt-
'   bezogen dafür vgebenen Namen (enthält jew ZWert) angelegt wdn.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const txFmHL$ = "HYPERLINK("
Dim adZiel$, Ziel As Hyperlink
On Error GoTo ex: If Target.Count > 1 Then Err.Raise xlErrNA
If CBool(Target.Hyperlinks.Count) Or (Target.HasFormula _
And CBool(InStr(Target.Formula, txFmHL))) Then
If CBool(Target.FormatConditions.Count) Then
Me.Names(naHLTx).Value = "=""" & Target & """"
If Target.Hyperlinks.Count = 0 Then
adZiel = Me.Evaluate(Replace(Target.Formula, _
",""" & Target & """", ""))
Set Ziel = Target.Hyperlinks.Add(Target, adZiel)
Ziel.Follow: Ziel.Delete
Target.Font.Underline = xlUnderlineStyleSingle
Else: Target.Hyperlinks(1).Follow
End If
Else: On Error Resume Next
If IsError(Me.Names(naHLTx)) Then
Else: Me.Names(naHLTx).Value = "="""""
End If
End If
End If
ex: Set Ziel = Nothing
End Sub

Viel Erfolg!
Gruß, Luc :-?
Besser informiert mit …

Hallo Philipp!
Ich gebe zu, ich blicke jetzt durch unseren Faden nicht mehr ganz durch. Deshalb hier der Neustart-Versuch meinerseits - es wurde von Luc und mir doch schon einiges geschrieben, Du sollst ja zu einer Lösung kommen.
Du hast geschrieben:
Vielen Dank für eure Hilfe...ich habe das soweit hinbekommen!
Super; aber welche Variante - Lucs oder meine? Die gehen ja ziemlich auseinander, hängt auch davon ab, welche Hyperlinks Du einsetzt
Und wie bekomme ich das jetzt hin..? per VBA oder wie?
Ja, was jetzt? Meinen Code, Lucs Code? Oder Deine weitere Frage bzgl. Anzeige der Zielzelle in der linken oberen Ecke?
ich habe letztens einen sehr knackigen VBA gefunden
Wofür hast Du Code gefunden - bezieht sich das noch auf die Hyperlink-Färben-Frage, oder die Zelle links oben anzeigen-Frage.
Habt ihr auf die schnelle einen parat?
Deine ursprüngliche Frage (Zellen mit Hyperlinks färben, nach Klick auf Hyperlink) ist gar nicht so einfach zu beantworten: Luc hat Dir aufgezeigt es gibt zwei Arten von Hyperlinks
- Variante 1: Du setzt in der Zelle mittels Kontextmenü (reMaus) einen "Hyperlink..."
- Variante 2: Du schreibst in eine Zelle die Excel-Funktion =Hyperlink(...)
Bis jetzt wissen wir nicht, wie Du das in Deiner Mappe konkret machst und es Deine Aufgabenstellung ist entsprechend komplex (v.a. kombiniert mit Hyperlink-Ziel-Zelle oben links anzeigen), als dass es hier schnell einen passenden Code gibt.
D.h.: Wo stehst Du gerade? Welchen Code (Lucs/meiner) hast Du bereits ausprobiert, was fehlt noch...
Falls Lucs Code für Dich schon funktioniert, kannst Du noch zusätzlich den folgenden Code in den Codeteil des betreffenden Arbeitsblattes kopieren, um das Hyperlink-Ziel (Zelle) immer oben links anzuzeigen - fixierte Spalten werden ignoriert(bilden sozusagen den linken Rand):

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

Gib Bescheid, wie's jetzt bei Dir aussieht!
Michael

Zelle färben wenn Hyperlink aktiviert wurde

Forumthread: Zelle färben wenn Hyperlink aktiviert wurde

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial