Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolgen in Industriezeiten umwandeln

Gruppe

Arbeitszeit

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