Hallo Thomas,
tia, VBA und OOo-Makros sind eben doch etwas verschiedenes. Aber, kein Problem.
Hier das Makro:
Code: Alles auswählen
Sub Main
trz="," ' Trennzeichen definieren
oDoc=thisComponent
' Werte einlesen
'aktive Zelle erhalten
oCelle=oDoc.getCurrentSelection()
'Inhalt der aktiven Zelle
inhalt=oCelle.getstring
'werte auf Array aufteilen am Trenner
atext=split(inhalt, trz)
'Position der aktiven Zelle erhalten
oZellPos=oCelle.getCellAddress()
'indexe der Reihe, Spalte und der Tabelle
reihe=oZellPos.row
spalte=oZellPos.column
tabelle=oZellPos.sheet
' Werte ausgeben
' aktives Tabellenblatt erhalten
oSheet=oDoc.sheets(tabelle)
'Schleife über alle Array-Inhalte
'Inhalte in Zellen aktive Zelle und rechts daneben
'schreiben. Die Funktion trim() entfernt dabei
'Leerzeichen vor und hinter den jeweiligen Texteinträgen
for i=lBound(atext()) to ubound(atext())
oSheet.getCellByPosition(spalte+i,reihe).string=trim(atext(i))
next
End Sub
Hab ich getestet mit der Zeichenfolgekette
"Montag, Dienstag, Mitwoch, Donnerstag, Freitag, Samstag"
Funktioniert einwandfrei. Wenn Du nicht zurecht kommst, schick ich dir gerne die Datei inkl. Makro zum testen und lesen.
Hoffe, es hilft
Thomas