Hallo ich möchte ab B4 eine Prüfung machen ob die die nachfolgenden Werte 1 sind, wenn nicht wird die Zelle rot eingefärbt und die Zeilen nummer gespeichert und zum Schluss wird in einer Messagebox angezeigt welche Zeilen das betrifft.
Hat jemand eine Idee
Dim lr As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
For i = 4 To lr
If Cells(i, 4).Value = "1" Then
else
'farbe zelle und zeile in MSG gox schreiben
next i