ich habe jetzt wirklich über eine Stunde (!) im Archiv gesucht um eine Lösung zu finden für mein im Betreff genanntes Problem. Vergebens!
Wie bringe ich im Bereich V4:V288 die ersten 60 Zeichen weg?
Danke Euch vorab.
Grüße
bernd
Sub erste60weg()
'von Sepp
Dim a As Variant
Dim lngI As Long
a = Range("V4:V288")
For lngI = 1 To UBound(a, 1)
a(lngI, 1) = Mid(a(lngI, 1), 60)
Next
Range("V4:V288") = a
End Sub
Grüße und Danke dir vielmals vorab.
Bernd, der aus München.
Sub erste60weg()
'von Sepp
Dim a As Variant
Dim lngI As Long
a = Range("V4:V288")
For lngI = 1 To UBound(a, 1)
a(lngI, 1) = Mid(a(lngI, 1), 60)
Next
Range("V4:V288") = a
End Sub
Grüße und Danke dir vielmals vorab.
Bernd, der aus München.