---

Hallo,

ein Kollege hat mich gebeten einmal zu diesem Thema zu recherchieren.

Mein Problem: Unsere Produkte sind in einer Produktstruktur auf der Festplatte abgelegt.
Diese sieht aus wie folgt:
1
1.1
1.1.1
usw.

Mein Kollege hat nun Ìber einen Editor alle Punkte in Unterstriche ("_") verwandelt. Nun möchte er in Excel in einer Spalte (die Unterstriche sind in mehreren Spalten) wieder in Punkte verwandeln.

Nun das Problem. Sobald man ÃŒber Suchen/Ersetzen die Unterstriche in Punkte verwandelt, zeigt Excel die Zelle als Datum an. Zumindest bei Zellen die nur 2 oder 3 Punkte haben.

Das heißt, aus "1.1" wird "01. Jan" und aus "1.1.1" wird "01.01.2001".

Eine Änderung am Zellenformat, also auf Text oder Benutzerdefiniert hat auch keine besserung gebracht. Hat also von Euch jemand eine Idee wie man dieses Problem lösen könnte?

Danke schon mal im voraus.

MfG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Chris,

das Textformat sollte eigentlich klappen.
Ansonsten versuchs mal mit ' davor, also:

'1.1.1

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nancy,

danke für Deine Antwort.

Ja, wenn man einen "'" benutzt, dann funktioniert es. Aber das
ist ja nicht Sinn und Zweck der Sache. Wenn ich eine Zelle formatiere und Ihr sage das sie Text enthält, dann hat der Inhalt sich nicht in ein Datum zu verwandeln.
Und genau die Lösung für dieses Problem suche ich.

Übrigens, bei uns ist Office 2000 im Einsatz.

MfG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi nochmal,

versuch mal folgendes Makro, habe es ertsmal nur für eine Zelle probiert:
________________________________________
Sub Test1()
Range("A1").Select
    With ActiveCell
      .Replace What:="_", Replacement:="."
      .NumberFormat = "@"
    End With
End Sub
___________________________________

oder eben (unprobiert) für eine Spalte:
_____________________________
Sub Test2()

columns("A:A").Select
    With selection
      .Replace What:="_", Replacement:="."
      .NumberFormat = "@"
    End With
End Sub
_______________________________

viel Glück
Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nachtrag,

also das Ganze funktioniert sogar ohne numberformat,
wahrscheinlich schlägt beim suchen/ersetzen irgendeine
'Formatautomatic'zu, die das gesetzte Format überschreibt,
zumindest sieht man das wenn man einfach mal ein Makro aufzeichnet,
was er da alles so hineintextet (habe das einfach gelöscht)
also nochmal 'less is more' und ohne select
siehts auch noch hübscher aus 

Grüsse Nancy
--

Sub einfacher()
Columns("A:A").Replace What:="_", Replacement:="."
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nancy,

sorry das ich mich jetzt erst melde, aber ich hatte Urlaub. 

Danke für Deine Routinen. Ich hab Sie mal weitergeleitet und hoffe das es so funktioneirt.

MfG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chris,
eine dumme Frage (falls es diese gibt): Du hast aber das Zellenformat vor dem ersetzen der Unterstriche in Punkte geaendert, oder?

bis denne
Udo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Udo,

neee, dumme Fragen gibt's nicht (nur dumme antworten).

Na klar, da hab' ich schon dran gedacht, vorher die Zellenformatierung auf Text zu stellen.
trotzdem Danke für den Tip.

MfG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP