Replace ändert Zellformat

Forumthread: Replace ändert Zellformat

26.11.2017 13:35:12

SteffenS

Hallo Zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Da Du keine unterschiedlichen Frmte untereinander

26.11.2017 13:41:29

lupo1

hast (macht man nicht!):
Columns("H:H").Numberformat = ...
erst am Schluss.

Frmte ?

26.11.2017 13:57:41

Nepumuk

Hallo lupo1,
fgst du jzt auch scn an wi Luc zu schrbn? Brrrrrrrrrrrrrrrrrrrr
Gruß
Nepumuk

pßte hlt n m i diese Überschr; was soll i d machn?

26.11.2017 14:01:24

lupo1

;)

die eine vernünftige Überschrift ausdenken.

27.11.2017 17:06:28

Daniel

ganz einfach.

Deine ist wohl 'die-vernünftig'...! :-)) owT

28.11.2017 01:16:24

Luc:-?

:-?

AW: Ersetzen und formatieren

26.11.2017 16:08:12

Gerd

Hallo Steffen!

Dim Hauraus As Variant
With WS.Columns("H:J")
For Each Hauraus In Array(", ", ",", " bis", "bis ", "bis", "und", " und", " und")
.NumberFormat = "@"
.Replace What:=Hauraus, Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, ReplaceFormat:=False
Next
.NumberFormat = "@"
End With

Gruß Gerd

AW: Ersetzen und formatieren

26.11.2017 20:32:33

SteffenS

Hallo Gerd,
danke für Deinen Tipp. So hat es super funktioniert.
Komisch das es mit dem "normalen" Ersetzten nicht geht.
VG Steffen

Beliebteste Forumthreads (12 Monate)

Forumthread: Replace ändert Zellformat

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread