Problem mit aktiver Zelle
24.06.2002 14:03:56
Niko
Damit lese ich die Farben der Zellen einer Spalte aus und will nun daß für jede Zelle wo eine Farbe drin ist (von denen unten) eine Spalte weiter links eine Zahl reingeschrieben wird.
Ich krieg das nicht hin, daß es jede Zelle einzeln untersucht..
Mit dem ActiveCell funzt es nicht Compilerfehler???!!??
Bitte helft mir ich dreh hier bald durch.
For Each rw In Worksheets("Tabelle1").Rows
mycolor = Worksheets("Tabelle1").Cells(rwindex, 11).Interior.Color
If mycolor = 65280 Then '65280 ist rückgabewert von grellgrün
ActiveCell.Offset(0, 1).Activate
Worksheets("Tabelle1").ActiveCell.Value = 2
End If
If mycolor = 255 Then ' 255 ist rückgabewert von rot
Worksheets("Tabelle1").Cells(2, 12).Value = 0
End If
If mycolor = 65535 Then ' 255 ist rückgabewert von gelb
Worksheets("Tabelle1").Cells(2, 12).Value = 1
End If
Next rw