Formatverlust bei replace
03.08.2005 22:49:31
godehard
ich habe folgendes Problem:
ich habe ein Tabellenblatt, in dem von versch. Personen Ergebnisse in Zellen eintragen und zwar in der Form: 1:2
Jetz kommt es ab und zu vor, dass statt ":" ein ";" od. "." od. "-", ... verwendet wird.
Nun habe ich mir gedacht dass ich, bevor die eigetlichen Makros das tabellenblatt auswerten, ich evtl. falsche Ergebnistrenner durch den richtigen ":" ersetze:
Cells.Replace What:=";", Replacement:=":", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Prinzipiell funktioniert das zwar, aber danach hat die Zelle den Inhalt 01:02 (s. https://www.herber.de/bbs/user/25299.xls)
Die zellen haben alle Textformat; das haben sie auch nach Ausführung des kleinen suchen/ersetzen-Makros.
Wie kann ich verhindern, dass sich das Format ändert und der ursprüngliche Zellinhalt (1:2) erhalten bleibt (mit Ausn. z.B. des ";" das durch ":" ersetzt wird)?
Oder bietet sich hier besser eine andere Möglichkeit an?
Vielen Dank im Voraus für eure Hilfe!!
Gruß
Gode