Userform beenden über Datum
18.08.2020 08:52:14
Stefan
vielleicht kann jemand von den Excel-Profis ja weiterhelfen.
Ich habe eine Excel-Liste in der sich in Spalte B der Produktname und in Spalte F das jeweilige Eingabedatum befindet. Dabei werden fortlaufend Daten in Spalte B und F zu anderen Produkten und deren Eingabedatum eingepflegt. Wenn nun ein bestimmtes Produkt nach 14-Tagen ab Eingabedatum noch nicht bei mir eingetroffen ist, soll eine Userform erscheinen die über eine TextBox das überfällige Produkt anzeigt. Soweit so gut - da sieht mein Ansatz so aus:
Private Sub Workbook_Open()
Dim i As Long
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 6) "" Then
If Date > Cells(i, 6) + 14 Then
Test.TextBox1 = vbLf & Cells(i, 2)
Test.Show
End If
End If
Next i
End Sub
Über einen DatePicker trage ich das aktuelle Datum dann in Spalte G ein (das als 1. Erinnerung _ für den Kunden gelten soll):
Private Sub CommandButton2_Click()
Cells(Rows.Count, "G").End(xlUp).Offset(1, 0) = DTPicker1.Value
End Sub
Die beiden Funktionen klappen auch.
Jetzt wäre für mich noch super, wenn in Spalte G ein Datum eingetragen ist (=TRUE), dass die Userform mit der TextBox für dieses Produkt nicht mehr anzeigt wird. Hat jemand eine Idee?
Bin für jede Hilfe dankbar :)
Gruß,
Stefan
Anzeige