Re: Zelle auftrennen
Verfasst: Mi, 01.07.2009 07:52
Hallo
Das gibts schon fix und fertig über den Menüpunkt -->Daten-->Text in Spalten.
Falls du das Rad neu erfinden möchtest:
Das Makro trennt alle Zelllinhalte von A1:A1000 am Leerzeichen und verteilt die Einzelteile über [Anzahl Leerzeichen -1] Spalten.
Gruß Karo
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 Gruß Karo