wie kann man Text eines Textfeldes

[der.milco]

Hallo an alle, die sich an folgendem Problem probieren möchten:

Ich habe ein Formular auf einem StarOffice Tabellenblatt (Calc) erstellt.
Unter anderem soll der Inhalt eines Textfeldes in eine Zelle geschrieben werden.
Er soll aber gleichzeitig mit einem weiteren Textfeld-Inhalt und einem Wort (als Verbindung) geschrieben werden.

Also, in der Zelle soll dann stehen:
Textfeld1 "und" Textfeld2

Habs mit diesem Code probiert:

Code: Alles auswählen

Sub Texte
  myDoc   = thisComponent
  mySheet = myDoc.sheets(0)
  myForm  = mySheet.drawpage.forms(0)
  myCell  = mySheet.getCellRangeByName("$B$7")
  myCtl1  = myForm.getByName("Text1")
  myCtl2  = myForm.getByName("Text2")

  lese1 = myCtl1.Text
  lese2 = myCtl2.Text
  myCell.string = lese1;"und";lese2
End Sub

Das funktioniert aber nicht: "und" unerwartet.

Dann wollte ich die Tabellenfunktion VERKETTEN benutzen, geht aber nicht. Der englische Begriff CONCATENATE geht auch nicht.

Habe den Code hier getestet:

Code: Alles auswählen

Sub Texte
  myDoc   = thisComponent
  mySheet = myDoc.sheets(0)
  myForm  = mySheet.drawpage.forms(0)
  myCell  = mySheet.getCellRangeByName("$B$7")
  myCtl1  = myForm.getByName("Text1")
  myCtl2  = myForm.getByName("Text2")

  lese1 = myCtl1.Text
  lese2 = myCtl2.Text
  myCell.string = concatenate(lese1;"und";lese2)
End Sub

Oder muss ich die Funktionen anders in den Code schreiben?
Vielleicht gehts auch viel einfacher??

[Toxitom]

Hallo Milco,

Oder muss ich die Funktionen anders in den Code schreiben?
Vielleicht gehts auch viel einfacher??

Geht es
Einfach die Varaiblen in Basic verketten!

Code: Alles auswählen

myCell.string =lese1 & " und " & lese2

Vergiss die Leerzeichen nicht, sonst sieht die Ausgabe nicht gut aus.

Gruss
Thomas

[der.milco]

klasse, das klappt.

Danke