ich habe mir mittels folgenden Codes die Farbe der Zelle anzeigen lassen:
Sub Farbezeigen()
MsgBox Sheets("Tabelle1").Cells(12, 16).Interior.ColorIndex
End Sub
Die Zelle ist rot und die msgbox zeigt "3" an.
Wenn ich jetzt diesen Farbwert als Hintergrund eines Shapes mit folgendem Code einfüge ist der Hintergrund nicht rot sondern grün:
With ActiveSheet.Shapes("1")
.Fill.ForeColor.SchemeColor = "3"
.Fill.Visible = msoTrue
End With
Könnt Ihr das erklären?
Danke
Marco