Leerzeichen an exakter Position einsetzen

08/11/2010 - 14:04 von Daniel Fellner | Report spam
Hallo NG,

ich habe eine Liste von Nummern die als Text formatiert sind. Die
Nummern sind exakt 6 Stellig und ich möchte nach drei Stellen ein
Leerzeichen einfügen:

Bsp

422405

sollte in 422 405 umgewandelt werden. Da die Tabelle fast 6000 Zeilen
hat sollte es so einfach wie möglich sein.

Hat da jemand eine Idee

Gruß

Daniel
 

Lesen sie die antworten

#1 Claus Busch
08/11/2010 - 14:21 | Warnen spam
Hallo Daniel,

Am Mon, 8 Nov 2010 05:04:59 -0800 (PST) schrieb Daniel Fellner:

Bsp

422405

sollte in 422 405 umgewandelt werden. Da die Tabelle fast 6000 Zeilen
hat sollte es so einfach wie möglich sein.



deine Zahlen stehen in Spalte A.
Dann Methode1:
Füge rechts von Spalte A zwei leere Spalten ein, markiere Spalte A durch
Klick in den Spaltenkopf und gehe auf Daten => Text in Spalten. Wàhle
dort "Feste Breite" und wàhle in Schritt2 des Assistenten einen
Spaltenumbruch hinter dem 3. Zeichen. Gebe nun in C1 ein:
¡&" "&B1 und kopiere runter bis Ende. Kopiere dann Spalte C und füge
sie an der gleichen Stelle über Inhalte einfügen => Werte ein. DAnn
kannst du Spalte A und B löschen.
Methode2:
Schreibe in B1:
=LINKS(A1;3)&" "&RECHTS(A1;3)und kopiere bis Ende. Dann wieder Spalte
kopieren und als Werte einfügen. Ursprungsspalte löschen.
Methode3:

Sub Leerzeichen()
Dim LRow As Long
Dim rngZelle As Range

LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngZelle In Range("A2:A" & LRow)
rngZelle = Left(rngZelle, 3) & " " & Right(rngZelle, 3)
Next
End Sub



Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen