Hallo Fachleute,
aus irgendeinem Grund funktioniert folgendes Makro nicht mehr.
Statt in die letzte leere Zeile einzufügen, wird die 2. Zeile überschrieben.
Würd mich freuen, wenn mir jemand sagen könnte, wo der Fehler steckt.
Vielen Dank schon mal !
sub Datensatz_azh_Speichern
Dim array_1(14)
odoc = ThisComponent
osheet = ThisComponent.Sheets.GetByName("Tabelle18")
for ta = 1 to 15
array_1(ta-1) = oDialog8.getControl("TextField" & ta).text
next ta
array_1 = Array(array_1())
osheet.getCellRangeByPosition(0, iLetzteZeile-1, 14, iletzteZeile-1).setDataArray(array_1)
oDialog8.endExecute()
Formular_oeffnen
end sub
und aber die Wertzuweisung an diese Variable nicht innerhalb des von Dir hier geposteten Codes erfolgt, kann man dazu nur allgemein antworten, das der Variablen "iLetzteZeile" ein falscher Wert zugewiesen wird, entweder in einem anderen Makro oder durch eine Const-Anweisung.
sub Datensatz_azh_Speichern
Dim array_1(14)
odoc = ThisComponent
osheet = ThisComponent.Sheets.GetByName("Tabelle18")
With osheet
x = .Columns("1").queryEmptyCells()
iLetzteZeile = x(x.Count-1).RangeAddress.StartRow +1
End With
for ta = 1 to 15
array_1(ta-1) = oDialog8.getControl("TextField" & ta).text
next ta
array_1 = Array(array_1())
osheet.getCellRangeByPosition(0, iLetzteZeile-1, 14, iletzteZeile-1).setDataArray(array_1)
oDialog8.endExecute()
sort_mitteilungen
Formular_oeffnen
end sub