Suchen und ersetzen von Zeiten
01.02.2017 14:58:29
Zeiten
ich habe ein merkwürdiges Problem und finde einfach keine Lösung.
Ich habe ein paar Zeiten in einem Tabellenblatt. Format der Zellen ist Standard.
Die Zelleninhalte sind zB.
_9:10:11
10:15:17
_8:25:33
16:15:17
usw.
Einstellige Stunden sind in der Tabelle statt mit einer führenden Null mit einem führenden Leerzeichen vorhanden (für die Übersichtlichkeit als _ eingetragen; also die 1. und 3. Zeit)
Ergebnis ist (und so solls auch sein):
09:10:11
10:15:17
08:25:33
16:15:17
usw.
Durch Suchen/Ersetzen kann ich ja schnell das " " mit "" ersetzen und alles passt.
Nun möchte ich das gern via Makro machen und habe bereits folgende Möglichkeiten ausprobiert:
Sub leer2()
Dim suchArray()
Dim ersetzArray()
Dim k As Long
suchArray = Array(" ")
ersetzArray = Array("")
For k = LBound(suchArray) To UBound(suchArray)
Call ActiveSheet.UsedRange.Replace(suchArray(k), ersetzArray(k), , , False)
Next k
End Sub
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
Beide Makros liefern folgenden Output:
09:10:11
10:15:17AM
08:25:33
16:15:17PM
usw.
Kann mir das jemand erklären? Auch ein setzen der Zellenformatierung schafft keine Abhilfe, denn das AM und PM steht als TEXT in den Zellen!
Wie kann das sein? Was mache ich falsch?
Ich hoffe auf Hilfe!
Gruß
Anzeige