OpenOffice.info

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.

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

Meine Glaskugel ist offline - ich weiss nicht, wie Du einfügst.
Spreche die Zellen bspw. einzeln an, dann brauchst Du keine CHRs:
[code]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[/code]

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

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]VCS_Daten_Anfang = ("BEGIN:VCALENDAR"& Chr(13)&_
"VERSION:1.0"& Chr(13)&_
"PRODID:OpenOffice" & Chr(13))[/code]

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 ?