Replace ändert Zellformat

26.11.2017 14: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

Da Du keine unterschiedlichen Frmte untereinander

26.11.2017 14:41:29

lupo1

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

Frmte ?

26.11.2017 14: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 15:01:24

lupo1

;)

die eine vernünftige Überschrift ausdenken.

27.11.2017 18:06:28

Daniel

ganz einfach.

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

28.11.2017 02:16:24

Luc:-?

:-?

Da Du k.unterschiedl Formate unter1ander ...

26.11.2017 21:13:41

Luc:-?

…hätte ich viell geschrieben! :-]
🙈 🙉 🙊 🐵 Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

AW: Ersetzen und formatieren

26.11.2017 17: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 21: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

Replace ändert Zellformat

Forumthread: Replace ändert Zellformat

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Replace ändert Zellformat

Forumthread: Replace ändert Zellformat

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

VBA Beispiele zu diesem und ähnlichen Themen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread