OpenOffice.info

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

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 

Hallo
Das gibts schon fix und fertig über den Menüpunkt -->Daten-->Text in Spalten.
Falls du das Rad neu erfinden möchtest:
[code]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 [/code]
Das Makro trennt alle Zelllinhalte von A1:A1000 am Leerzeichen und verteilt die Einzelteile über [Anzahl Leerzeichen -1] Spalten.

Gruß Karo