Wie kann ich per VBA in den Zellen in Spalte B an immer an 4. Stelle ein Leerzeichen setzen.
zB.
S1822345 mus heissen S18 22345
Danke und Gruss
Gregor
| D | |
| 17 | S01 23456 |
| Zahlenformate | ||
| Zelle | Format | Wert |
| D17 | "S"00 00000 | 123456 |
Dim rng As Range
For Each rng In Columns(2).SpecialCells(xlCellTypeConstants).Cells
If Len(Trim$(rng)) > 3 Then
rng = Replace(rng, " ", "")
rng = Left(rng, 3) & " " & Mid(rng, 4)
End If
Next
Dim xZ As Range
For Each xZ In ActiveSheet.UsedRange.Columns(2)
xZ = Left(xZ, 3) & " " & Mid(xZ, 4)
Next xZ
Gruß Luc :-?