Zelle auftrennen

[Karolus]

Hallo
Das gibts schon fix und fertig über den Menüpunkt -->Daten-->Text in Spalten.
Falls du das Rad neu erfinden möchtest:

Code: Alles auswählen

sub Spalte_auftrennen

with thiscomponent.sheets(0) 'erste Tabelle
	for i = 0 to 999  ' erste Zeile bis 1000ste Zeile
		aerg = split( .getcellbyposition(0, i).string)  'am Leerzeichen aufsplitten
		for icol = 0 to ubound(aerg)
			.getcellbyposition(icol, i).formulalocal = aerg(icol)
		next icol
	next i
end with

end sub 

Das Makro trennt alle Zelllinhalte von A1:A1000 am Leerzeichen und verteilt die Einzelteile über [Anzahl Leerzeichen -1] Spalten.

Gruß Karo

[Hömmelmann]

Hallo,


wenn es nur darum geht, feste Bereiche einer Spalte "aufzutrennen", dann kann man das auch ohne Basic lösen:

Schreibe in die Zelle B1 die Funktion: " =LINKS(A1;5) "
in die Zelle C1: " =TEIL(A1;7;6) "
in die Zelle D1: " =RECHTS(A1;1) "

Wenn du diese Zellen dann nach unten ziehst, hast du genau was du haben willst.


Gruß, Friedhelm