Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zelle einfärben und Zeile merken
18.07.2017 16:24:56
jens
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle einfärben und Zeile merken
18.07.2017 16:48:14
UweD
Hallo
so?
    Dim lr As Long, i As Long, Msg As String
    
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    Cells(4, 4).Resize(lr - 3, 1).Interior.Color = xlNone
    Msg = ""
    
    For i = 4 To lr
        With Cells(i, 4)
            If .Value = "1" Then
    
            Else
                Msg = Msg & i & ", "
                .Interior.Color = 255
                
            End If
        End With
    Next i
    
    If Msg <> "" Then MsgBox Msg

LG UweD
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige