Leerzeichen innhalb des Textes löschen
04.01.2008 11:50:00
Bernd
Hi Freaks,
ich habe nachstehenden code von Erich und Sepp erhalten, der auch funktioniert, aber nur, wenn ich (wie damals gewollt) die ersten 60 Zeichen eines Textes löschen will. Mein Versuch über die Excel-VBA-Hilfe hat mich zwar zu "RTrim" geführt , aber ich habe es nicht umsetzen können...
Meine Bitte an Euch:
Wie muss ich den Code modifizieren, wenn ich bis auf 1 Leerzeichen die übrigen aus dem folgenden Originaltext "Berichtsperiode: 3 / 2008" in Spalte C eliminieren will?
Sub erste60wegUndLeerzeichenWeg() 'Spalte V
'von Sepp & Erich
Dim a As Variant
Dim lngI As Long
a = Range("c4:c288")
For lngI = 1 To UBound(a, 1)
a(lngI, 1) = WorksheetFunction.Trim(Mid(a(lngI, 1), 60))
Next
Range("c4:c288") = a
End Sub
Grüße und Danke vorab
Bernd