ist es möglich die Textfarbe bei verlinkten Zellen automatisch einer Farbe zuzuordnen?
Vielen Dank und einen guten Start in die Woche
Tom
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim h As Hyperlink
For Each h In Tabelle1.Hyperlinks 'Hier Tabelle1 in Deinen Tabellennamen Ändern
h.Range.Interior.ColorIndex = -4142
Next
End Sub
Hier musst Du natürlich Tabelle1 auf den Namen Deines Tabellenblattes mit den Hyperlinks ändern
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1:A5000").Select
Selection.Font.ColorIndex = 3 'Die Farbe kann man beliebig Ändern!
Selection.Font.Underline = xlUnderlineStyleNone
End Sub
Gruß