Blattseitenfarbe formatieren
28.01.2015 23:17:16
Jonas
Ziel ist es die Blattreiter Farbig zu formatieren. Da diese alphanumerisch aufsteigen, möchte ich dafür einen Integer benutzen (Int_1).
Im folgenden Quellcode bekomme ich beim Ausführen der Zeile ".ThemeColor = 255"
den Laufzeitfehler "9"
Meine Vermutung geht dahin das er Probleme mit der Zeile darüber hat.
Ein Konflikt mit dem Integer, wobei eine Selektierung ohne Probleme funktioniert.
Sub Blattformat()
Dim Int_1 As Integer
Dim Zero As Integer
Sheets(Sheets.Count).Select
Int_1 = ActiveSheet.Name
MsgBox Int_1
' Sheets(Int_1).Select
With ActiveWorkbook.Sheets(Int_1).Tab
.ThemeColor = 255
.TintAndShade = 0
End With
' Rot = 255
' Grün = 5287936
' Lila = 10498160
End Sub
Danke im voraus.
Gruß
Jonas
Anzeige