Textfeld per Knopfdruck auslesen

[go_freesoftware]

Hallo!

Habe ein Textfeld und einen Button in die Tabelle eingefügt (also keinen eigenen Dialog erstellt).
Das Textfeld heißt 'txtText', das Formular 'frmMain' und der Button 'butKopieren'. Wenn ich allerdings auf den Button drücke wird '0' in die Zelle geschrieben. Was mache ich falsch?

Code: Alles auswählen

sub Jahresabrechnung_Kopieren
	oDoc = ThisComponent
	oSheet = oDoc.Sheets.getByIndex(0)
	oForm = oSheet.DrawPage.Forms.GetByName("frmMain")	
	oTage = oForm.getByName("txtTage")
	
	oSheet.getCellByPosition(0, 0).Value = oTage.Text 
end sub

Vielen Dank!

[gurkende_gurke]

Hallo go_freesoftware.
Ich würds mal mit

Code: Alles auswählen

sub Jahresabrechnung_Kopieren
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByIndex(0)
   oForm = oSheet.DrawPage.Forms.GetByName("frmMain")   
   oTage = oForm.getByName("txtTage")
   
   oSheet.getCellByPosition(0, 0).Formula = "=oTage.Text"
end sub

probiern, da .value nur reine Zahlen ausgeben kann...
probiers mal damit

[Karolus]

Hallo

....Formula = "=oTage.Text"

nicht ganz richtig - es soll ja keine echte Formel werden - es reicht vmtl.:

Code: Alles auswählen

...Formula = oTage.Text

Gruß Karo

[gurkende_gurke]

sry karo, hab ich nicht richtig nachgedacht

[go_freesoftware]

Wieder was dazu gelernt. Vielen Dank!