Sammelmeldung ausgeben
28.05.2019 07:29:54
Jens
ich frage hier eine Spalte ab. Ist in der Spalte eine Zelle die rot ist, dann kommt eine Meldung.
Wie schaffe ich es dass ich das auch auf die Spalten G Und H anwende, aber es soll dann nicht für jede gefundene Zelle eine Meldung kommen sondern eine Sammelmeldung. Wenn nichts gefunden wird dann kommt keine Meldung.
Kann mir hier jemand behilflich sein?
Sub Freigabe()
Dim arr, Z
Dim objRange As Object
Dim i As Integer
Dim Lr As Integer
Lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 16 To Lr
If Cells(i, 2).Interior.Color = RGB(248, 105, 107) Then
MsgBox "Bitte zuerst die fehlenden Datensätze ergänzen - Rot markierte Zellen beachten!" _
, vbCritical
Exit Sub
End If
Next
End Sub