Der erste Lösungsvorschlag hat gerade bei mir einnen Heul- u. Lachkrampf ausgelöst weil es so banal ist, dass ich mich einen Idioten schalle weil ich nicht von selbst drauf gekommen bin. xD
Vielen Dank dafür. Funktioniert.
'Zeitformat korrigieren
With Me.txtZeit1
If .Value <> "" Then
If InStr(1, .Value, ":", vbTextCompare) = 0 Then
tString = Format(.Value, "0000")
tString = Left(tString, 2) & ":" & Right(tString, 2)
.Value = Format(TimeValue(tString), "HH:MM")
Else
.Value = Format(.Value, "hh:mm")
End If
End If
End With
Was Deinen Vorschlag für das zweite Problem angeht hab ich es ausprobiert und dann gibt er mir statt einer Anzahl an Minuten oder hh:mm ein Datum aus. =(
|