sicher könnt Ihr mir dabei helfen.
Mit einem Dialog möchte ich Datumsangaben in Zellen eintragen.
Er enthält 10 DateFields (DateField1 bis DateField10)
Die zu befüllenden Zellen: Spalte Y,letzte Zeile bis Spalte AH,letzte Zeile
Die letzte Zeile wird in Spalte A ermittelt.
Code: Alles auswählen
sub Behandlungsdaten_Speichern '11-20
'oDialog9.endExecute()
osheet = ThisComponent.Sheets.GetByName("Tabelle16")
oCellCursor = osheet.createCursor
oCellCursor.GotoEndOfUsedArea(False)
nRow = oCellCursor.getRangeAddress(0).endRow
'msgbox nRow
Zelle = osheet.getCellRangebyName("Y" & nRow +1)
oZelle = osheet.getCellRangebyName("Z" & nRow +1)
Zelle.formulalocal = oDialog9.getControl("DateField1").text
oZelle.formulalocal = oDialog9.getControl("DateField2").text
'usw.
End Sub
Danke!