Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Datum vergleichen MsgBox
#1
Hallo zusammen,
 
ich habe eine Liste wo ich immer den nächstmöglichen Termin für eine anstehende Aufgabe eintrage.(Spalte D)
Nun möchte ich das bereits beim öffnen das heutige Datum mit dem "Nächstmöglichen Termin" abgeglichen wird und mir der Inhalt der Zelle links neben den Daten (Aufgabe Spalte C) und im Optimalfall auch noch die dazugehörige Aufgabennummer (Nummer Spalte A)

Ich habe mir bereits etwas zusammen Gegooglet und das ganze dann zusammen gebastelt.
Allerdings werden mir nur die Zellen der Abgelaufenen bzw. heute fälligen Aufgaben angezeigt...und diese auch noch alle nacheinander...bei einer Liste mit mehreren huntert Aufgaben eher unpraktisch   19
Kann mir hier jemand zeigen wie ich 1. den zum Datum gehörigen Text aus der Zelle daneben anzeigen lasse und 2. alle sachen in einer MsgBox und nicht alle nacheinander?

Vielen Dank im Vorfeld Smile

PS : Hier mein Code 

Private Sub Workbook_Open()

Dim Bereich As Range
Dim Zelle As Range
   Dim iCounter As Integer
  
  
Set Bereich = Range("D2:D5500")
For Each Zelle In Bereich
    If Zelle = "" Then
    'nix unternehmen
    ElseIf Date >= 38713 <= Date And Zelle.Offset(0, 1) = "" Then
        MsgBox "Termin ?berschritten - siehe Zelle " & Zelle.Address
       
    End If
Next
End Sub
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste