[GELÖST]Fehler in Klammer?

[Mike_S]

Moin zusammen!

Ich habe hier eine Tabelle, in der in mehreren Spalten Werte stehen, bei denen ich den höchsten Wert ermitteln möchte.

Ich dachte mir, ich könnte dazu die Funktion MAX nutzen, die ja "eigentlich" für sowas vorgesehen ist.

Im Makro sieht das bei mir so aus:

dim Testvar as integer

Testvar = MAX(oSheet.getCellRangebyName("$" & SP_Gesamtpunkte_Ausdauer & "$" & Z_Eingabe).value; oSheet.getCellRangebyName("$" & SP_Punkte_Ausdauer_Dauerlauf & "$" & Z_Eingabe).value; oSheet.getCellRangebyName("$" & SP_Punkte_Ausdauer_3000_m_Lauf & "$" & Z_Eingabe).value; oSheet.getCellRangebyName("$" & SP_Punkte_Ausdauer_10_km_Lauf & "$" & Z_Eingabe).value; oSheet.getCellRangebyName("$" & SP_Punkte_Ausdauer_Schwimmen & "$" & Z_Eingabe).value;oSheet.getCellRangebyName("$" & SP_Punkte_Ausdauer_Radfahren & "$" & Z_Eingabe).value;oSheet.getCellRangebyName("$" & SP_Punkte_Ausdauer_Walking & "$" & Z_Eingabe).value)

Wenn ich das Makro dann laufen lasse, dann bekomme ich die Rückmeldung "BASIC-Syntaxfehler.
Fehler in Klammerschachtelung."

Das sieht für meinen Geschmack aber korrekt aus.: Alle geöffneten Klammer werden auch wieder geschlossen. Rufe ich die Funktion vielleicht falsch auf, so dass es zu dieser (für mich dann irreführenden) Fehlermeldung kommt?

Gruß,

Mike

[karolus]

Hallo

Basic ist halt kein Wunschkonzert.

• es kennt keine Funktion max

• Argumente werden in Basic per Komma getrennt nicht per Semicolon…

• … und müssen vorher per array-function in eine Liste gewandelt werden

• Deine $zeichen sind im kontext völlig überflüssig

funktionierendes Beispiel:

Code: Alles auswählen

sub printmax
    doc = thisComponent
    osheet = doc.Sheets(0)
    foo =  createUnoService("com.sun.star.sheet.FunctionAccess")
    testvalues = array(oSheet.getCellRangebyName("A1").value,_
        oSheet.getCellRangebyName("A2").value,_
        oSheet.getCellRangebyName("A3").value,_
        oSheet.getCellRangebyName("A4").value,_
        oSheet.getCellRangebyName("A6").value,_
        oSheet.getCellRangebyName("A7").value,_
        oSheet.getCellRangebyName("A8").value)
  m = foo.callFunction("max",testvalues)
  print m
end sub

[Mike_S]

Hi Karolus!

Danke für Deine Hinweise... Ich vermute mal, einiges liegt daran, dass ich noch in VBA "gefangen" bin...

Auf jeden Fall läuft es jetzt!

Danke und Gruß,

Mike