Re: Zähler in VBA
24.05.2003 11:39:30
Jürgen
Hallo Flo,Du kannst es auch mit einer For Each-Anweisung versuchen.
Angenommen, Deine Zahlen stehen im Bereich A2 bis A7:
(Ungetestet)
Dim Zelle as Range
For Each Zelle in ActiveSheet.Range("A2:A7")
If Zelle.Interior.ColorIndex = 14 Then
Range("G3").Value = zähler + 1
End If
Next Zelle
Versuch's mal.
Wenn Du unbedingt mit Zähler arbeiten willst (For Each ist schneller!), mußt Du den Zähler auch in Deine Routine aufnehmen:
Spalte = 1
For Zeile = 1 To 6
If Cells(Zeile,Spalte).Interior.ColorIndex = 14 Then
Range("G3").Value = zähler + 1
End If
Next Zeile
Gruß
Jürgen