Re: automatischer zellenwechsel
Verfasst: Sa, 06.12.2008 20:07
Hallo
Was hälst du davon alle Ziffern der Reihe nach** in eine Zelle einzugeben, und dir die Stellen der selektierten Eingabezelle
per Makro in den Zellen darunter ausgeben zu lassen ?
**bei mehreren Ziffern mit einem '-Hochkomma beginnen um eine Umwandlung in Exponentialschreibweise zu verhindern!
Kapitel Quellcode
http://www.ooowiki.de/MakrosMitEinemKlick
Gruß Karo
Was hälst du davon alle Ziffern der Reihe nach** in eine Zelle einzugeben, und dir die Stellen der selektierten Eingabezelle
per Makro in den Zellen darunter ausgeben zu lassen ?
**bei mehreren Ziffern mit einem '-Hochkomma beginnen um eine Umwandlung in Exponentialschreibweise zu verhindern!
Code: Alles auswählen
Sub einstellig_verteilen
'zerlegt den Inhalt der aktuellen Zelle in Einzelstellen
'und gibt sie der Reihe nach in den Zellen darunter aus
odoc = thiscomponent
osheet = odoc.currentcontroller().activesheet
oakt = odoc.currentselection()
eingabe = oakt.string
arow = oakt.getcelladdress.row
acol = oakt.getcelladdress.column
for i = 1 to len(eingabe)
osheet.getcellbyposition(acol,arow + i).formula = mid(eingabe,i,1)
next
End Subhttp://www.ooowiki.de/MakrosMitEinemKlick
Gruß Karo