Spalte nach spalte addieren

[Atwist]

Baujahr 1960 und ich dachte dass ich wieder mal mit eine "wise guy" zu machen haben

[Atwist]

Was ich nicht kapiere von diesen Makro ist das ich "+" nicht durch einen "-" ersetzen kann, muss die Zeile mit die "rows" anders aufgebaut sein

Code: Alles auswählen

Sub Optellen_Jahrkosten
   sheet = ThisComponent.Sheets.GetByName("Jaarkosten")
   maand = sheet.getCellRangeByName("E9:F27")
   data = maand.DataArray
   for each row in data
      row(1) = row(0)+row(1)
   next
   maand.DataArray = data
End Sub

Bekomme diesen Fehler

Unzulässiger.png (30.04 KiB) 4348 mal betrachtet

Bitte daher nochmal um Hilfe.

[F3K Total]

Hallo,
versuche es mal so:

Code: Alles auswählen

Sub Optellen_Jahrkosten
   sheet = ThisComponent.Sheets.GetByName("Jaarkosten")
   maand = sheet.getCellRangeByName("E9:F27")
   data = maand.DataArray
   for each row in data
      dValue = row(0)-row(1)
      row(1) = dValue
   next
   maand.DataArray = data
End Sub

Gruß R

[mikele]

Hallo,
ich glaube es liegt eher an den Daten. Leere Zellen werden nicht als 0 eingelesen. Bei der Addition ist es offensichtlich egal, aber bei anderen Operationen nicht.
Also:

Code: Alles auswählen

row(1) = cdbl(row(0))+cdbl(row(1))

[Atwist]

Hallo ihr beiden,

Leider keine von beide Funktioniert.
Hab hier mein Test Datei.

Test-Datei.ods

(15.7 KiB) 212-mal heruntergeladen

[mikele]

Hallo,
was funktioniert nicht?
Bei mir (LO 4.4.7.2) kommt zumindest keine Fehlermeldung.

[F3K Total]

Bei mir klappt es auch (Version: 4.4.7.2 Build-ID: f3153a8b245191196a4b6b9abd1d0da16eead600)
Gruß R

[Atwist]

Habe mal einen SreenVideo gemacht von mein Problem dass geht besser als alles zu schreiben.

Video-vom-Problem.mkv.zip

(955.91 KiB) 232-mal heruntergeladen

Und 2 screenshots

Makros.png (27.26 KiB) 4318 mal betrachtet

LOversion.png (23.42 KiB) 4318 mal betrachtet

[mikele]

Hallo,
hast du vielleicht nur die Operatoren vertauscht und willst eigentlich:

Code: Alles auswählen

row(1) = cdbl(row(1))-cdbl(row(0))

[Atwist]

Hallo Mikele

Du hast recht habe die "0" und die "1" nicht gesehen und daher auch nicht geändert.

Vielen DANK.

Jetzt ist mein Tool fertig.