schriftfarbe ändern bei workbook_open()
joerg
Ich bin inzwischen begeisterter neu-VBA-Nutzer, mit den üblichen kleinen Anfangs-Problemchen... jetzt zB würde ich gern mit folgendem Code beim öffnen des workbooks in allen Blättern den Text in den Spalten A bis S schwarz färben:
Private Sub workbook_open()
Dim sheet As Object
For Each sheet In ActiveWorkbook.Sheets
Columns("A:S").Select
With Selection.Font
.Name = "Calibri"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Next
End Sub
Die Änderung der Schriftfarbe habe ich vorher als Makro aufgenommen, funktioniert auch, allerdings wird die Schriftfarbe nur im jeweils aktiven Blatt geändert... Woran könnte das liegen?
Danke für Eure Hilfe :)