Seite 1 von 1

Textfeld per Knopfdruck auslesen

Verfasst: Fr, 26.12.2008 18:45
von 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!

Re: Textfeld per Knopfdruck auslesen

Verfasst: Fr, 26.12.2008 19:02
von 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

Re: Textfeld per Knopfdruck auslesen

Verfasst: Fr, 26.12.2008 19:20
von Karolus
Hallo
gurke hat geschrieben:....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

Re: Textfeld per Knopfdruck auslesen

Verfasst: Fr, 26.12.2008 19:30
von gurkende_gurke
sry karo, hab ich nicht richtig nachgedacht :D

Re: Textfeld per Knopfdruck auslesen

Verfasst: Fr, 26.12.2008 23:58
von go_freesoftware
Wieder was dazu gelernt. Vielen Dank!