Gruppe
DatumZeit
Problem
Die Zeichenfolgen aus Spalte B sollen in Industriezeiten umgewandelt werden. In Spalte D eine Lösung aufgrund von Excel-Funktionen, in Spalte E aufgrund einer benutzerdefinierten Funktion, die auch Sekunden mit berücksichtigt.
StandardModule: Modul1
Function Txt2No(sTxt As String) As Double
If InStr(sTxt, "Stunde") Then
Txt2No = CDbl(Left(sTxt, InStr(sTxt, " ") - 1))
ElseIf InStr(sTxt, "Minute") Then
Txt2No = CDbl(Left(sTxt, InStr(sTxt, " ") - 1)) / 60
Else
Txt2No = CDbl(Left(sTxt, InStr(sTxt, " ") - 1)) / (60 * 60)
End If
End Function