Schriftart ändert sich von selbst

[Daniel.Haering]

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

[Kl@us-M.]

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

[Daniel.Haering]

Funzt wunderbar

Danke
 Daniel