Clever-Excel-Forum

Normale Version: Schriftart ändert sich von selbst
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Servus,

ich habe eine Formatvorlage in Excel erstellt (name: "ordnerlink").

die Verwende ich um darzustellen wenn ein Link auf den Ordner (der die Daten zu dem Eintrag enthält) eingetragen wurde oder nicht.
Das funktioniert mit der Funktion =HYPERLINK("Link";"1") bzw. ("keinLink";"0").
In der Formatvorlage ist mit 0 oder 1 ein geschlossener oder offener Ordner hinterlegt, würde also auch optisch was hermachen.


Mein Problem ist jetzt dass alles passt solange ich noch den Beispieltext habe.

Sobald ich aber den tatsächlichen Link eintrage [=HYPERLINK("C:\\Desktiop\.....";"1")] ändert sich die Schriftart in der Zelle zu Calibri.
Konsequenz ist dass eine Hyperlink-1 (unterstrichene blaue 1) dort steht.

Wenn ich jetzt wieder die Formatvorlage (Ordnerlink) anklicke passt alles wieder - aber so ist das halt sehr unschön.


2 Fragen hier dazu:

1.) Weiß irgendwer woran das liegt und was man dagegen unternehmen kann?

2.) Ich hätte auch schon versucht das über eine Zellüberwachung zu machen und dann eben per Makro die Formatvorlage zuzuweisen - Code dazu hätte ich so versucht

Code:
    If Target.Address = "F3:F105" Then
        Worksheets("Checkliste Versuche").Range("F3:F105").Style = "Ordnerlink"
    End If

hat leider nicht funktioniert...


Schon mal vielen Dank für eure Hilfe
Daniel
Hi Daniel,

probier mal so:


Code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = Range("F3:F105")
If Not Intersect(Target, myRange) Is Nothing Then
   Range("F3:F105").Style = "Ordnerlink"
End If
End Sub
Funzt wunderbar

Danke
 Daniel