Beispiel: die Zeichen bzw. die Zeichenfolgen
<
>
/
NAMEK
VORNAMEK
.. usw.
sollen aus der ganzen Tabelle verschwinden. Wer kann mir behilflich sein, DANKE!
Hier das oben genannte Markro, das ich habe:
Sub xml()
Dim r As Range
For Each r In ActiveSheet.UsedRange.Cells
r.NumberFormat = "@" 'alle Zellen = Textformat
If Len(r.Text) > 1 Then
'wenn an Anfang ein "<", dann das erste Zeichen entfernen
If Left$(r.Text, 1) = "<" Then r.Value = Right$(r.Text, Len(r.Text) - 1)
End If
Next r
End Sub