Datum aus Userform
20.09.2017 16:22:32
Tobi
ich versuche zwei Datumseinträge aus einer Userform zu bekommen, aus denen anschließend die Differenz berechnet werden soll.
Meine Userform sowohl als auch mein Tabellenblatt heißen "Windmessung". Beim abspielen des Programms kommt es zur Fehlermeldung: "Typen unverträglich" mit Verweis auf die Diff Funktion. Dies passiert selbst wenn man keine Eingabe tätigt. Hier mein Code:
Private Sub
Button_Take_Click()
DatumMessbeginn = Format(Date, "Long Date")
DatumMessende = Format(Date, "Long Date")
DatumMessbeginn = Windmessung.DatumMessbeginn.Value
DatumMessende = Windmessung.DatumMessende.Value
Dim Messzeitraum As Integer
Messzeitraum = DateDiff("m", DatumMessbeginn, DatumMessende)
End Sub
Beste Grüße
Tobi