Bei CODE ColorIndex erweitern
15.08.2004 12:00:34
Lorenz
Mein Problem: Bei eingefügtem CODE will ich bei "Else .Interior.ColorIndex = 0"
den ColorIndex von der Zelle aus Spalte "4" übernehmen.
Wie soll ichs machen?
Sub SaSoFt()
Dim i As Integer
For i = 4 To 65
With Range(Cells(4, i), Cells(83, i))
If Cells(1, i) = 1 Then
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
ElseIf Cells(2, i) = 1 Then
.Interior.ColorIndex = 5
.Font.ColorIndex = 2
Else
.Interior.ColorIndex = 0
.Font.ColorIndex = 1
End If
End With
Next
End Sub
Danke im voraus
Lorenz!