Microsoft Excel

Herbers Excel/VBA-Archiv

Zeitformate



Excel-Version: 10.0 (Office XP)

Betrifft: Zeitformate
von: Ralf von Brocken
Geschrieben am: 29.05.2002 - 11:19:10

Moin!

Wie kann ich ein Zeitformat in ein Textformat umwandeln?
Zeitdarstellung:
00:05:11,235

gewünschte Textdarstellung:
000511235

Danke!

  

Re: Zeitformate
von: WernerB.
Geschrieben am: 29.05.2002 - 19:38:11

Hallo Ralf,

markiere den betreffenden Zellbereich und starte dann dieses Makro:


Option Explicit
Sub Zeitformat()
Dim As Range
Dim z0 As String, z1 As String, z2 As String, z3 As String, z4 As String
    For Each c In Selection
      z1 = Left(c.Text, 2)
      z2 = Mid(c.Text, 4, 2)
      z3 = Mid(c.Text, 7, 2)
      z4 = Right(c.Text, 3)
      z0 = z1 & z2 & z3 & z4
      c.ClearContents
      c.NumberFormat = "@"
      c.Value = z0
    Next c
End Sub

Viel Erfolg wünscht
WernerB.
 

Beiträge aus den Excel-Beispielen zum Thema "Zeitformate"