HERBERS Excel-Forum - die Beispiele

Thema: Zeichenfolgen in Industriezeiten umwandeln

Home

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.

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