Prüfen ob Hintergrundfarbe in VBA
02.09.2003 22:20:17
Christoph
ich knabber mal wieder an einem Problem bei VBA:
Wenn in einer Zeile in der Spalte K nichts eingetragen ist und in Spalte M (gleiche Zeile) ist ein Eintrag und die Hintergrundfarbe von der Zelle in Spalte M kommt in jeder einzelnen Zelle der Spalten A bis J (auch wieder nur diese Zeile) nicht vor, dann kopiere die Zelle aus Spalte M nach Spalte K. Nach diesem Schema werden alle Zeilen durchlaufen.
Mein Problem:
Wie formuliere ich das Thema: "Hintergrundfarbe von der Zelle in Spalte M kommt in jeder einzelnen Zelle der Spalten A bis J" nicht vor?
Sub kopiere_wenn_Farbe()
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lRow + 1 To 3 Step -1
CIndex = Cells(i, 13).Interior.ColorIndex
If Cells(i, 11) = 0 And Cells(i, 13) <> 0 And ???<>CIndex Then
Cells(i, 13).Copy
Cells(i, 11).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
End If
Next i
End Sub
Ich benötige also für jede Zeile i einen Durchlauf mit Farbprüfung für die Spalten A bis J.
Ich könnte hierbei natürlich jede einzelne Spalte von A bis J ansprechen, aber das scheint mir viel zu umständlich.
schon vorab vielen Dank
Gruß
Christoph