Textfeld per Knopfdruck auslesen
Verfasst: Fr, 26.12.2008 18:45
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?
Vielen Dank!
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