GELÖST Zeilen- bzw Zellenumbruch durch Makro

[SüdSauerland]

Hallo zusammen,

ich habe wirklich schon viel gesucht aber noch keine Lösung gefunden.

Problemstellung:
Ich möchte einen Text in Calc per Makro einfügen.
Dieser Text soll aber in mehrere Zellen stehen.

Beispiel:

Code: Alles auswählen

VCS_Daten_Anfang = ("BEGIN:VCALENDAR"& Chr(13)&_
							"VERSION:1.0"& Chr(13)&_
							"PRODID:OpenOffice" & Chr(13))

Wenn ich VCS_Daten_Anfang nun in Calc einfüge steht alles in einer Zelle.
Ich würde aber gerne
BEGINN.... in zum Beispiel A1 stehen haben,
VERSION.... in A2 und
PRODID... in A3 usw.

Über CHR (10) oder CHR (13) ist das nicht möglich.

Was mach ich falsch ?

[komma4]

Meine Glaskugel ist offline - ich weiss nicht, wie Du einfügst.
Spreche die Zellen bspw. einzeln an, dann brauchst Du keine CHRs:

Code: Alles auswählen

Sub calc_insert2Cells

oSheet=ThisComponent.Sheets.getByName( "Tabelle2" )
With oSheet
   .getCellByposition(0 , 0).setString( "BEGIN:VCALENDAR" ) 
   .getCellByposition(0 , 1).setString( "VERSION:1.0" )
End With

End Sub

[SüdSauerland]

Hallo Winfried,

deine Glaskugel hat dich nicht getäuscht, genau das war mein Problem.
Habe das jetzt so wie du es beschrieben hast umgesetzt.
Hierdurch ist der Quellcode doch etwas übersichtlicher geworden.

DANKE.