Gruppe
DatumZeit
Bereich
Arbeitszeit
Thema
Zeichenfolgen in Industriezeiten umwandeln
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.
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
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