ich versuche in Calc den Inhalt eines Textfeldes (in einem Formular) in eine Zelle schreiben zu lassen.
Bei einem Datumsfeld klappt das hervorragend mit folgendem Code:
Code: Alles auswählen
Sub Feldwerte_in_Zelle (evt)
' Makro, dass das ausgewählte Datum in einem Datumsfeld (bzw. Uhrzeit in einem Uhrzeit-Feld) dann auch zur Weiterverwendung bei Berechunungen in eine gewünschte Zelle schreibt.
' Bei jeder Änderung des Datums/Uhrzeit wird auch das entsprechende Datum/Uhrzeit in der zugehörigen Zelle geändert.
' In die Einstellungen zum Feld muss unter Zusatzinformation die Zelle geschrieben werden, in die geschrieben werden soll z.B. B3 (ohne Anführungszeichen) - sprich die gewünschte Zelle, in die der Wert geschrieben wird darauf achten, dass nicht mehrere Felder in gleiche Zellen schreiben
' Unter Ereignisse-Tab dann als "Text modifiziert" dieses Makro auswählen
oDoc = ThisComponent
oActiveSheet = oDoc.currentController.ActiveSheet 'Setze aktives Sheet als aktiv
oCtl=evt.source.model
oCell=oActiveSheet.getcellrangebyname(oCtl.tag)
oCell.value= cDate(oCtl.text)
End sub
Wenn ich aber das Datum per Hand ändere, kommt eine Fehlermeldung.
Bein einem reinen Text- oder Zahlenfeld klappt es gar nicht. Wenn ich dort Text oder Zahl eingebe, kommt wieder diese Fehlermeldung.
Woran kann das liegen? Was kann ich da machen?
Danke für Eure Hilfe!
Rupp