VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichenfolgen in Industriezeiten umwandeln

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

    


Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Arbeitszeit