Office: Zellen färben...

Hallo,

ich habe folgendes Problem mit einer Excel-Datei.
Leider ist die Datei zu groß um sie hier hochzuladen. Aber dafür habe ich zwei Sctreenshots beigefügt.

Die Datei enthält getippte Zahlenreihen bei einem Spiel (5 Zahlen aus 20). Mit dem Button FELDER FÄRBEN werden richtigen Treffer rot markiert . (Bild 001.png).

Allerdings wird bei 3 Richtigen wie im Beispiel in der letzten Spalte der Treffer nicht markiert.
Spieler Anton hat ja 3 Richtige...die Zahl 17 wird aber nicht markiert.

Woran könnte das liegen?


Hier der Code zum Button FELDER FÄRBEN

Vielen Dank schon einmal ann alle die helfen können...
tobi



Private Sub CommandButton1_Click()
Dim i%, s%, z%, c As Range
Dim ber As Range
Set ber = [c2:g200] 'Mitspielerbereich
Application.ScreenUpdating = False
For Each c In ber
For s = 10 To 14
'Bereich der horizontal gezogenen Zahlen
For z = 2 To 2 'Bereich der vertikal gezogenen Zahlen
'If c = Cells(z, s) Then
If Cells(z, s) > 0 And Cells(z, s) = c Then
c.Interior.ColorIndex = 3
End If
Next
Next
Next
Application.ScreenUpdating = True
End Sub

 

Hallo!

Da Spalte K die 11. Spalte und Spalte O die 15. Spalte ist, muss die Schleifenvariable s in folgendem Bereich liegen:
For s = 11 to 15

 

Hallo Anton Exl,

vielen Dank für Deine Hilfe.
Ich hab' mir den Code 100mal angeschaut...aber auf diesen (einfachen) Fehler bin ich echt nicht gekommen ;-)

Danke...
tobi