automatischer zellenwechsel

[Karolus]

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!

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 Sub

Kapitel Quellcode
http://www.ooowiki.de/MakrosMitEinemKlick

Gruß Karo

[Karolus]

Hallo
Wenn du die Einzelzahlen in der Zeile dahinter verteilen möchtest musst du das Makro in der drittletzten Zeile ändern auf:
...
osheet.getcellbyposition(acol + i,arow ).formula = mid(eingabe,i,1)
...
Gruß Karo

[Karolus]

Hallo
Entschuldige, es muss lauten
(ocol + i ,....
und nicht
(ocol + 1...
ich habs oben schon berichtigt.
Gruß Karo