Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sammelmeldung ausgeben

Sammelmeldung ausgeben
28.05.2019 07:29:54
Jens
HAllo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sammelmeldung ausgeben
28.05.2019 07:53:29
EtoPHG
Hallo Jens,
so?:
Sub Freigabe()
Dim lRow As Long
Dim sDisplayMsg As String
For lRow = 16 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lRow, 2).Interior.Color = RGB(248, 105, 107) Then
sDisplayMsg = "Bitte zuerst die fehlenden Datensätze ergänzen - Rot markierte  _
Zellen beachten!"
Exit For
End If
Next lRow
If sDisplayMsg  "" Then MsgBox sDisplayMsg, vbCritical
End Sub
Gruess Hansueli
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige