Replace ändert Zellformat
26.11.2017 13:35:12
SteffenS
ich verwende folgenden Code um einige Ersetzungen in Spalten durchzuführen.
Die Ersetzung funktioniert auch super, leider wird aber zum Teil das Zahlenformat geändert.
Was kann ich tun, dass sich dieses nicht ändert. Über das Setzen des Zellformats habe ich schon versucht. Leider ohne Erfolg.
Mein Code:
With WS.Columns("H:J")
.NumberFormat = "@"
.Replace What:=", ", Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:=",", Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:=" bis ", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:="bis ", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:=" bis", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:="bis", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:=" und ", Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:="und ", Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:=" und", Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
.Replace What:="und", Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, ReplaceFormat:=False
End With
Habt ihr eine Idee was ich tun kann, ohne jede Zelle einzeln zu durchlaufen?
Danke Euch schon mal.
VG Steffen