ich habe mir eine Tabelle der Lottozahlen gebastelt.
Nun möchte ich gern die Zahlen zur Vorwoche vergleichen.
Anbei Musterdatei.
https://www.herber.de/bbs/user/77567.xls
mfg Walter mb
C | D | E | F | G | H | |
9 | 5 | 11 | 15 | 20 | 36 | 48 |
10 | 2 | 10 | 20 | 24 | 25 | 47 |
bedingte Formatierung | |||||||||
Zelle | Typ | Operator | Formel1 | Formel2 | Format | Unterstrichen | Schrift- farbe | Muster | Muster- farbe |
C9:H9 | 1.Bed.: Formel ist | =ZÄHLENWENN($C2:$H2;C3) | 65535 | ||||||
C10 | 1.Bed.: Formel ist | =ZÄHLENWENN($C9:$H9;C10) | 65535 | ||||||
D10:H10 | 1.Bed.: Formel ist | =ZÄHLENWENN($C9:$H9;D10) | 65535 |
Private Sub CommandButton1_Click()
Dim zeile As Long
Dim spalte As Long
For zeile = 4 To Cells(Rows.Count, 3).End(xlUp).Row
For spalte = 3 To 8
If WorksheetFunction.CountIf(Range(Cells(zeile - 1, 3), Cells(zeile - 1, 8)), Cells(zeile, _
spalte)) > 0 Then
Cells(zeile, spalte).Interior.Color = vbYellow
End If
Next
Next
End Sub