Ersetzen-Problem (kleines Quadrat)
07.07.2005 15:30:27
SirOle
ich schlage mich nun schon seit etwas längerer Zeit mit einem Problem herum. Da mir lagsam die Ideen ausgehen, bitte ich nun um Hilfe.
Ich habe eine Excel-Sheet mit ca. 400 Zeilen und ca. 50 Spalten. Via VBA greife ich darauf zu und möchte bestimmte Sonderzeichen in einer Spalte ersetzen, die mich in der Weiterverarbeitung stören. Ich habe dazu eine Schleife gebaut, die wie folgt aussieht:
Sheets(Blatt1).Select
Range("F1").Select
i=0
Do until i = ActiveSheet.UsedRange.Rows.Count
if ActiveCell.Value Empty Then
ActiveCell.Select
With Selection
.Replace What:="'", Replacement:="", Lookat:=xlPart
.Replace What:=Chr(34), Replacement:="", Lookat:=xlPart
.Replace What:=Chr(44), Replacement:="", Lookat:=xlPart
.Replace What:=Chr(9), Replacement:="", Lookat:=xlPart
.Replace What:=Chr(10), Replacement:="", Lookat:=xlPart
.Replace What:=Chr(13), Replacement:="", Lookat:=xlPart
ActiveCell.Offset(1, 0)
else
ActiveCell.Offset(1, 0)
endif
i=i+1
Loop
Soweit, so gut. Die Chr(10) und Chr(13) decken ja i.d.R. genau diesen Fall ab, leider habe ich danach immer noch gewisse Zellen, in denen dieses kleine *** Quadrat ist. Hat irgendwer ne Idee, was ich da vergessen habe zu ersetzen? Oder wie ich herausbekomme, welches Zeichen ich da angeben muß?
Vielen Dank schonmal für die Hilfe
P.S. Ich mußte das Ganze abtippen, von daher könnte ein vergessenes Komma o.ä. dabei sein, die Funktionalität sollte jedoch klar sein