Bestimmtes Zeichen in Zelle löschen, ausser 1.
06.09.2006 22:27:23
Gregor
Der untenstehende Code funktioniert einwandfrei, nur möchte ich, dass das bestimmte Zeichen ('-) nicht gelöscht wird, wenn es am Anfang der Zelle steht.
Bsp.: '- Äpfel, '- Birnen, '- Orangen; Lösung: alle "'-" durch "-" ersetzen, ausser das 1. Zeichen "'": '- Äpfel, - Birnen, - Orangen
Kann mir jemand helfen?
Grüsse Gregor
Sub Zeichen_ersetzen()
Dim Bereich As Range
Set Bereich = ActiveSheet.Range("d3:e500")
If Intersect(ActiveCell, Bereich) Is Nothing Then
Else
For I = 1 To 8
If InStr(1, Target, "'-", 1) > 0 Then
Target.Characters(InStr(1, Target.Value, "'-", 1), Length:=1).Delete
End If
Next
End If
End Sub