Office: (Office 2010) Makro Zelleninhalt ändern

Hallo,

ich versuche gerade das erste mal ein Makro zu programmieren. Ich habe mehrere Spalten in denen Zeitangaben in folgendem Format stehen 002h 47m (bzw 015h 15 m) und das würde ich gerne zu 2:47 (bzw 15:15) ändern. Ich habe es mit folgendem Code versucht:

Sub ZeichenTauschen()
On Error Resume Next
Dim Zelle As Range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = "h"
ErsetzenDurch = ":"
For Each Zelle In ActiveSheet.UsedRange
Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle
On Error GoTo 0
End Sub

Das Problem ist, dass ich die Nullen vor der ersten Ziffer so nicht wegbekomme. Hat jemand von euch einen Tip?

Danke!

 

Hallo Am_Kai,

probier' so:
SuchenNach = "h "

For Each Zelle In ActiveSheet.UsedRange
h = CLng(Left(Zelle.Value, InStr(Zelle.Value, SuchenNach) - 1))
m = CLng(Mid(Zelle.Value, InStr(Zelle.Value, SuchenNach) + 2, 2))

Zelle.Value = Format(h & ":" & m, "HH:MM")
Next Zelle

Gruß,
Lutz