führendes Zeichen >>>'<<< entfernen
21.07.2003 13:33:06
MikeS
mit nachfolgendem Code setze ich in jede nichtleere Zelle vor den Zellinhalt
das Zeichen >>><<< .
Wie kann ich dieses Zeichen wieder entfernen???
Mit dem 2.Code will ich über Len die Länge des Zellinhalts bestimmen und das
führende >>><<< wieder entfernen.
Das Zeichen wird aber bei der Len-Funktion nicht mitgezählt, so daß das 1.Zeichen
nach >>><<< abgeschnitten wird.
Beispiel:
Zellinhalt vor Makro1: 123
Zellinhalt nach Makro1: 123
Zellinhalt nach Malro2: 23 !!!
Code:
Sub Zeichen_setzen()
Dim Zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("A2:CC" & Cells(Rows.Count, 2).End(xlUp).Row)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Zelle In Bereich
If Not IsEmpty(Zelle) Then Zelle = "'" & Zelle
Next Zelle
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub Zeichen_entfernen()
Dim Zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("A2:CC" & Cells(Rows.Count, 2).End(xlUp).Row)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Zelle In Bereich
If Not IsEmpty(Zelle) Then Zelle = Right(Zelle, Len(Zelle) - 1)
Next Zelle
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Code eingefügt mit Syntaxhighlighter 2.1
Vielen Dank
MikeS