Hey Leute,
ich steh vor einem Problem. Und zwar bekomm ich eine Text Datei mit Messergebnissen. Diese sollen mit einem Makro importiert werden. Das Hauptproblem ist der Punkt der als Komma ersetzt werden soll. Ich habs schon auf verschiedensten Möglichkeiten ausprobiert (Recorder, suchen und ersetzen, etc.....)und bin schließlich auf eine Lösung gekommen.
For Each rngCell In Selection
If Not IsEmpty(rngCell) And Not rngCell.HasFormula Then
rngCell.Value = "'" & rngCell.Value
End If
Next
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Dieser Code schreibt mir ein ' (Apostroph) vor jede Zahl somit kann ich dann den Punkt mit suchen ersetzen Funktion fehlerfrei ersetzen lassen.
Jetzt soll das Hochkomma per Makro wieder entfernt werden und das ist leider nicht so einfach da er mit der Recorder Funktion und das Komma verschwinden lässt.
MFG |