Codeänderung
16.09.2018 22:31:23
Guesa
Müsste folgenden Code genau andersherum haben, also nach 4 Zeichen von links ein Leerzeichen. Habe schon eine weile selbst versucht das zu ändern, jetzt habe ich verzweifelt, mit der Erkenntnis das es doch nicht so einfach ist aufgegeben, und wende mich entsprechend an Euch. Vorab ein Danke für eure Hilfe.
Gruß, Guesa
Sub test()
On Error Resume Next
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 2).Value = Left(Cells(i, 2), Len(Cells(i, 2)) - 4) & " " & Right(Cells(i, 2), 4)
Next
End Sub