OpenOffice.info

Wieder was dazu gelernt. Vielen Dank!

sry karo, hab ich nicht richtig nachgedacht :D

...Formula = oTage.Text

Hallo
[quote="gurke"]....Formula = "=oTage.Text"[/quote]
nicht ganz richtig - es soll ja keine echte Formel werden - es reicht vmtl.:
[code]...Formula = oTage.Text
[/code]
Gruß Karo

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

Hallo go_freesoftware.
Ich würds mal mit
[code]
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
[/code]
probiern, da .value nur reine Zahlen ausgeben kann...
probiers mal damit

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

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]
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[/code]

Vielen Dank!