AW: Mir ist es inzwischen aber gelungen, ...
16.09.2014 01:50:02
Ewald
Hallo Daniel,
Nachtrag:
laß mal auf einer leeren Tabelle dieses Makro laufen
Sub FarbenTheme()
Dim i
Dim k
Dim w
Dim v
For i = 1 To 12
Cells(2, i).Value = ThisWorkbook.Theme.ThemeColorScheme.Colors(i)
Next
For k = 1 To 12
v = 0.1
w = -0.1
For i = 1 To 10
Cells(i + 2, k).Interior.Color = Cells(2, k).Value
Cells(i + 2, k).Interior.TintAndShade = v
Cells(i + 2, k).Value = Cells(i + 2, k).Interior.Color
v = v + 0.1
Next
For i = 1 To 10
Cells(i + 12, k).Interior.Color = Cells(2, k).Value
Cells(i + 12, k).Interior.TintAndShade = w
Cells(i + 12, k).Value = Cells(i + 12, k).Interior.Color
w = w - 0.1
Next
Next
End Sub
Hier kannst du deutlich erkennen das ein Mischen mit Weiss(pos.TAS) bei Weiss oder Mischen mit Schwarz(neg.TAS)bei Schwarz nichts verändert.
Alle anderen Farben ändern sich.
Gruß Ewald