ich will per Makro in einer Tabelle (A1 bis AL104) den Inhalt der Zellen rot markieren, dessen Inhalt nicht durch 4 teilbar ist.
Danach will ich mit einem weiteren Makro das ganze wieder rückgängig machen.
Hat jemand eine Idee?
Sub viergewinnt()
Dim rng As Range, test
For Each rng In Range("A1:AL104")
test = rng.Value / 4
If InStr(test, ",") > 0 Then
rng.Interior.ColorIndex = 3
Else
rng.Interior.ColorIndex = xlNone
End If
Next rng
End Sub
Sub farblos()
Range("A1:AL104").Interior.ColorIndex = xlNone
End Sub
test = rng.Value / 4
If test <> Int(test) Then
Sub rot()
dim c as range
for each c in range("a1:al104")
if c mod 4 <>0 then
c.interior.colorindex=3
else
c.interior.colorindex=xlnone
end if
next c
End Sub
Sub Hervorheben()
Dim z As Range
For Each z In Range("A1:AL104")
If z.Value Mod 4 <> 0 Then
z.Interior.ColorIndex = 3
End If
Next z
End Sub
Sub Hervorheben_Aus()
Range("A1:AL104").Interior.ColorIndex = xlColorIndexNone
End Sub