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ßDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen