ColorIndex
11.04.2003 13:57:05
Christoph
Mit dem Makro (Vielen Dank an Manu):
Option Explicit
Sub Farben()
Dim Zeile As Long
For Zeile = 1 To 100 'anpassen tatsächliche Zeilenzahl
Cells(Zeile, 2) = Cells(Zeile, 1).Interior.ColorIndex
Next
End Sub
erhalte ich in der zweiten Spalte unabhängig von der Farbe der Ausdrücke in der ersten Spalte immer -4142 als ColorIndex.
Weiß jemand, wie es funktioniert?
Christoph