abtrennen

Sub Abtrennen()
Dim lngZeile As Long, wks As Worksheet
Const lngSpalte As Long = 4  'Spalte in der abgetrennt werden soll
Const lngZeichen As Long = 6  'Zeichen ab dem abgetrennt werden soll
Set wks = ActiveSheet
With wks
For lngZeile = 1 To .Cells(.Rows.Count, lngSpalte).End(xlUp).Row
.Cells(lngZeile, lngSpalte).Value = _
Mid(.Cells(lngZeile, lngSpalte).Text, lngZeichen)
Next
End With
End Sub