Datumsvergleich VBA
07.07.2018 18:17:52
Daniel
ich habe eine Frage:
Ich baue gerade eine "Exceldatenbank" auf in der es einfach darum geht Bauteile ( z.b. Feuerlöscher) zu überprüfen.
Die Datenbasis habe ich über VBA erstellt mit Spalten wie "zuletzt geprüft am" dann gebe ich ein "Intervall" vor und rechne das auf das Prüfdatum drauf um das "neue Prüfdatum" zu bekommen. Das funktioniert auch alles soweit.
Was ich jetzt erreichen möchte ist Folgendes:
Ich plane eine Druckvorschau auf der, wieder das Beispiel Feuerlöscher, alle Feuerlöscher deren "Neues Prüfdatum" kleiner ist als das "heutige Datum" angezeigt werden.
Ich will die Datensätze einfach auf ein anderes Tabellblatt kopieren welches ich dann via Druckvorschau anzeigen lasse. Alles soweit kein Problem, nur der Datumsvergleich funktioniert nicht, VBA geht nicht in die Schleife rein....
Private Sub cmd_200_drucken_Click()
Dim lngzeile As Long, lngDruckzeile As Long
lngzeile = 2
lngDruckzeile = 2
Do Until Tabelle1.Cells(lngzeile, 2) = ""
MsgBox Date & " " & " " & Tabelle1.Cells(lngzeile, 9) 'Test zur Anzeige für mich
If Tabelle1.Cells(lngzeile, 9) Ich bringe das Datum wie folgt in die Tabelle1:
Sub UP_FL_Eintragen(lngzeile As Long)
'die Abfangroutine hab ich jetzt rausgelassen
With Me
Tabelle1.Cells(lngzeile, 1) = "FL- " & Mid(lngzeile, 1, 3)
Tabelle1.Cells(lngzeile, 2) = .cbo_200_H
Tabelle1.Cells(lngzeile, 3) = .cbo_200_LM
Tabelle1.Cells(lngzeile, 4) = .cbo_200_Gg
Tabelle1.Cells(lngzeile, 5) = .txt_200_INFO
Tabelle1.Cells(lngzeile, 6) = .cbo_200_Halle
Tabelle1.Cells(lngzeile, 7) = Format((Me.txt_200_Pdatum), "dd.mm.yyyy")
Tabelle1.Cells(lngzeile, 8) = .cbo_200_Intervall
Tabelle1.Cells(lngzeile, 9) = Format((Me.lbl_200_NDatum), "dd.mm.yyyy")
End With
End If
End Sub
und so rechne ich das Intervall aus
Private Sub cbo_200_Intervall_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim str_Intervall As String
Dim str_PDatum As String
str_Intervall = 0
str_PDatum = Me.txt_200_Pdatum
str_Intervall = Me.cbo_200_Intervall
mDateAdd = DateAdd("m", str_Intervall, str_PDatum)
Me.lbl_200_NDatum = Format((mDateAdd), "dd.mm.yyyy")
End Sub
Hat jemand Rat was ich falsch mache?
DAnke vorab.