Hallo ihr VBA Profis.

Habe ein kleines Problem.

Ich erstellte mittels UserForm (start) ein kleines Programm zur Protokollverwaltung. In der ersten UserForm ist einen Listbox die mir Daten aus einer Tabelle wieder gibt.
Wiederrum diese Daten werden mittels UserForm (eingabe) in die Tabelle eingetragen.

Nun möchte ich, wenn das heutige Datum 4 Tage vor dem eingegeben Datum in Spalte E ist, dass eine MsgBox aufgeht die mir sagt "Achtung...Frist läuft bald ab".

Das einzige wenn in Spalte P etwas drin steht, soll keine MsgBox kommen.

 Dim xZeil As Integer, i As Integer, xName As String, xDatum As Date, xMeld As String, xTage As Double
    With Sheets("ia")
        xZeil = Range("E100").End(xlUp).Row
            For i = 2 To xZeil
                If Cells(i, 5) >= Date And Cells(i, 5) < Date + 4 And Cells(i, 15) = "" Then
                    xName = Cells(i, 2)
                    xDatum = Cells(i, 5)
                    xTage = Cells(i, 5) - Date
                    xMeld = xMeld & "    -   " & xName & " in " & xTage & " Tagen" & Chr(10) & Chr(10)
                End If
            Next
        If xMeld = "" Then Exit Sub
    MsgBox "! ! ! ACHTUNG ! ! !          " & vbCrLf & vbCrLf & "Frist läuft ab bei: " & vbCrLf & vbCrLf & xMeld, vbInformation
    End With

Der Code funktioniert zwar, aber leider nur wenn ich die Daten händisch in das Tabellenblatt einfüge und nicht wenn wie gewünscht die Daten über die Userform eingegeben werden.

Vielleicht kann mir jemand helfen.

Der Ehrlichkeitshalber: ich habe diese Frage schon in einem anderen Forum gestellt. Jedoch leider keine hilfreiche bzw. brauchbare Lösung erhalten.

Ich bedanke mich im Vorfeld schon mal

Lg Patrick