ich möchte wie im Tabellenblatt die Zeitdifferenz in einer UF
berechnen.
Leider funktioniert das nicht.
Kann mir jemand helfen?
Danke!
Gruß, Olga
https://www.herber.de/bbs/user/124130.xlsm
Private Sub CommandButton1_Click()
Dim start As Date, ende As Date
With UserForm1
start = CDate(.cboTerm_Datum_von.Value) + CDate(.cboTerm_Zeit_von)
ende = CDate(.cboTerm_Datum_bis.Value) + CDate(.cboTerm_Zeit_bis.Value)
.txtTerm_Minuten = CStr(Round((ende - start) * 1440, 2)) & " Minuten"
End With
End Sub