wieso funktioniert das nicht?
23.03.2009 07:19:08
jonas
Sub text2()
Dim s As sting
For s = 1 To 56
If Cells(s, 1).interir.ColorIndex = 2 Then
Value Cells(s, 1) = 4
Else: Value Cells(s, 1) = 5
End If
End Sub
ich will, wenn die zelle (s,1) den farbindex 2 hat, dass sich der wert der zelle auf 4 ändert, ist dies nicht der fall, soll sie den wert 5 annehmen.
vielen dank für die hilfe. bin dran, mir die grundlagen in vba beizubringen:)
gruss jonas
Anzeige