Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

An 4. Stelle ein Leerzeichen

Forumthread: An 4. Stelle ein Leerzeichen

An 4. Stelle ein Leerzeichen
Gregor
Hallo
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: An 4. Stelle ein Leerzeichen
06.01.2012 16:49:05
Hajo_Zi
Hallo Georg,
warum nicht Zahlenformat?
Tabelle3
 D
17S01 23456

Zahlenformate
Zelle Format Wert
D17 "S"00 00000123456
Zellen mit Format Standard werden nicht dargestellt

Tabellendarstellung in Foren Version 5.47



Anzeige
AW: An 4. Stelle ein Leerzeichen
06.01.2012 16:49:33
Josef

Hallo Gregor,
freihändig! 

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


« Gruß Sepp »

Anzeige
In allen Zellen von B an 4. Stelle ein Leerzchn...
06.01.2012 16:50:38
B
…geht bspw so, Gregor: 
Dim xZ As Range
For Each xZ In ActiveSheet.UsedRange.Columns(2)
xZ = Left(xZ, 3) & " " & Mid(xZ, 4)
Next xZ
Gruß Luc :-?
AW: In allen Zellen von B an 4. Stelle ein Leerzchn...
06.01.2012 17:03:07
B
Hoi zäme
Vielen Dank, Vorschlag Luc ist perfekt
Gruss Gregor
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige