Sonderzeichen entfernen

Forumthread: Sonderzeichen entfernen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Sonderzeichen entfernen

17.09.2003 11:46:24

Herbert

Hallo
Ich habe in mehreren Spalten mit über 1000 Zeile verschiedentlich einen Hex-Wert, den ich entfernen sollte. Manuell ist's kein Problem, aufzeichnen ist jedoch nicht möglich.
Wie kann ich über ein Script einen Hex-Wert in einer Spalte abfragen und ersetzen.

Besten Dank und Grüsse aus der sonnigen Schweiz

Herbert

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sonderzeichen entfernen

17.09.2003 22:34:47

Nepumuk
AW: Sonderzeichen entfernen

19.09.2003 08:47:01

herbert
AW: Sonderzeichen entfernen

19.09.2003 18:59:13

Nepumuk
AW: Sonderzeichen entfernen

22.09.2003 10:34:16

Herbert

AW: Sonderzeichen entfernen

17.09.2003 22:34:47

Nepumuk

Hallo Herbert,
woran kann ein Programm erkennen, das es einen Hex-Wert vor sich hat und wodurch soll dieser dann ersetzt werde?
Gruß
Nepumuk

AW: Sonderzeichen entfernen

19.09.2003 08:47:01

herbert

Hallo Nepumik

Es handelt sich um CaridgeReturn-Hex[13] und LineFeed-Hex[10]. Ich muss CR entfernen.

Grüsse

Herbert

AW: Sonderzeichen entfernen

19.09.2003 18:59:13

Nepumuk

Hallo Herbert,
so geht's:


Option Explicit
Public Sub test()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If InStr(1, Zelle, Chr(13)) <> 0 Then Zelle = Mid(Zelle, 1, InStr(1, Zelle, Chr(13)) - 1) & Mid(Zelle, InStr(1, Zelle, Chr(13)) + 1)
Next
End Sub