sonderzeichen löschen
12.03.2004 14:28:17
Thomas S.
ich hab hier folgenden Code aus dem Archiv gefunden und meinen bedürfnissen, soweit wie mögl abgeändert. nur irgendwie hab ich das problem, dass mir alle zellen komplett überschrieben werden und unendlich viel text drinsteht.
ich wollte eigentlich nur ein makro das von zelle zu zelle hüpft und die inhalte der zelle auf 30 zeichen kürzt und sonderzeichen wie ?:/[] mit dem _ ersetzt.....
kann mal einer von euch draufschaun, was ich da falsch gemacht hab???
Danke!!!
Dim arStralt() As String, arStrneu() As String
Dim Stralt As String, Strneu As String
Stralt = ActiveCell.Value 'für einstieg
Do Until Stralt = ""
Stralt = ActiveCell.Value
Stralt = Left(Stralt, 30) 'auf 30 Zeichen kürzen
ReDim arStralt(Len(Stralt) - 1) As String
ReDim arStrneu(Len(Stralt) - 1) As String
For i = 0 To UBound(arStralt)
arStralt(i) = Mid(Stralt, i + 1, 1)
Next i
For i = 0 To UBound(arStralt)
Select Case Asc(arStralt(i))
Case 91 To 93
arStrneu(i) = "_" '[ \ ] raus
Case 42
arStrneu(i) = "_" ' * raus
Case 47
arStrneu(i) = "_" ' / raus
Case 58
arStrneu(i) = "_" ' : raus
Case Else
arStrneu(i) = arStralt(i)
End Select
Next i
For i = 0 To UBound(arStrneu)
Strneu = Strneu & arStrneu(i)
Next i
ActiveCell.Value = Strneu
ActiveCell.Cells(2, 1).Select
Loop