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 :-?