Haltbarkeiten Prüfen

Forumthread: Haltbarkeiten Prüfen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Haltbarkeiten Prüfen

29.11.2021 18:39:05

Hans

Hallo
Wie kriege ich es hin, dass mir Excel in Spalte C bis zur letzten Zelle mit Inhalt nach Datum durchsucht, und wenn ein Datum kleiner als Heute mit MsgBox Meldung Abgelaufen mit der Entsprechenden Zeile, die Zeile in Spalte A und B Anzeigt
Und was in 30 Tagen von Heute Ablaufen wird?
Habe eine Beispieldatei Hochgeladen
https://www.herber.de/bbs/user/149466.xlsm
Danke

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Haltbarkeiten Prüfen

29.11.2021 18:56:19

Nepumuk
AW: Haltbarkeiten Prüfen

29.11.2021 19:36:16

Firmus
AW: Haltbarkeiten Prüfen

29.11.2021 20:18:31

Hans

AW: Haltbarkeiten Prüfen

29.11.2021 18:56:19

Nepumuk

Hallo Hans,
teste mal:


Option Explicit
Public Sub Haltbarkeit()
Dim objCell As Range
For Each objCell In Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
With objCell
If .Value

Gruß
Nepumuk

AW: Haltbarkeiten Prüfen

29.11.2021 19:36:16

Firmus

Hallo Hans,
schau mir hier.
In deine Datei eingebettet und getestet.
https://www.herber.de/bbs/user/149468.xlsm
Gruß,
Firmus

AW: Haltbarkeiten Prüfen

29.11.2021 20:18:31

Hans

Hallo Firmus
Genau so hab ich mir das Vorgestellt.
Besten Dank
Gruss Hans