ich benötige eure Hilfe.
In einer Tabelle habe ich Fahrzeugdaten durch einen Dialog gespeichert. Nun möchte ich einige Daten ändern.
Durch eine InputBox komme ich auf die gesuchte Zeile. Mit
Code: Alles auswählen
Dim Dlg_PkwAendern as object
Dim TextField4 as object
DialogLibraries.LoadLibrary( "Standard" )
Dlg_PkwAendern = CreateUnoDialog( DialogLibraries.Standard.Dlg_PkwAendern)
oDoc = ThisComponent
oSheet = ThisComponent.Sheets().getByName("BestandsListe")
oCelle=oDoc.getCurrentSelection().getCellAddress()
oRow =oCelle.Row +1
oCelle=oSheet.getCellByPosition(oColumn,oRow)
oRow = ltrim(str(oRow))
cellname=oColumnName+oRow
rowAsInteger = CVar(oRow) 'CInt
oCelle_Baujahr = oSheet.getCellRangeByName("C"&rowAsInteger)
Baujahr = oCelle_Baujahr.String()
Dlg_PkwAendern.getControl("TextField4").Text = Baujahr
Leider scheitern meine Versuche, die neuen Daten in das Feld zurück zu schreiben. Trotz tagelangem Suchen, hier im Forum, finde ich keine Lösung.
Hinzu kommt, dass ich auch eine Formel für das Alter in die daneben befindliche Zelle schreiben muss. Wie ich dies bewerkstelligen muss, weiß ich auch noch nicht.
Vielleicht könnt ich mir helfen. Anbei eine abgespeckte Version.
Vielen Dank
Kalle