Hallo Ghost,
versuche es mal so:
Sub Materialnummerfarbig()
Dim LastRow As Long
Dim y As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For y = 2 To LastRow
If Cells(y, 2).Interior.ColorIndex <> xlColorIndexNone Then
Cells(y, 1).Interior.ColorIndex = 44
Else
Cells(y, 1).Interior.ColorIndex = xlColorIndexNone
End If
Next
End Sub
Ein Tipp: Da die Zeilen- und Spalten-Nr. in den neueren Versionen von Excel weit über 65535 gehen können sollten sie al 'Long' definiert werden. Das gilt für die letzte Zeile 'LastRow' wie für den Zeilenzähler 'y' gleichermaßen.
Grundsätzlich kannst Du nur die Farbe einer Zelle auf einmal abfragen. Wenn Du die Farbe mehrer Zellen einer Zeile abfragen willst, muss das wiederum in einer Schleife über die in Frage kommenden Spalten geschehen. Eine Zelle ohne Farbe kann über die VBA-Konstante 'xlColorIndexNone' kontrolliert werden.
Gruß
Christian
|