Hallo,
in VBA scheitere ich daran, die Elemente einer Liste abzuarbeiten.
Mit der FPScript-Formel “textliste”
Dim idx = ValuesAboveLevel(Integer32 (("" <> Kommentar) == ("Start" <> Kommentar)), 0.5, EVENT_INDEX)
Dim Liste = [Zyklus[idx], Kommentar[idx]] // Erstellen der Liste mit 2 Datenreihen.
erzeuge ich einen Liste mit zwei Datenreihen.
Die FPScript-Formel “Anzahl”
NumberOfRows(textliste.[0])
erzeugt einen Einzelwert mit der Länge dieser Liste.
In VBA sieht die Abfrage der beiden Formeln dann so aus:
Dim Anzahl As FlexPro.Formula
Set Anzahl = oDiagram.ParentFolder.Object("Anzahl", fpObjectTypeFormula)
Dim Text As FlexPro.Formula
Set Text = oDiagram.ParentFolder.Object("textliste", fpObjectTypeFormula)
MsgBox Anzahl.Value(0, 0)
MsgBox Text.Value(0, 0)
Die MsgBox für den Einzelwert funktioniert und zeigt was an, egal ob “fpDataComponentY” drin steht oder nicht. Für die Liste funktioniert das aber so natürlich nicht.
Meine Frag ist nun: Wie kann ich einen Einzelwert der Liste abfragen?
In FPScript wird das mit:
textliste.[1][1]
gemacht, um den zweiten Einzelwert der zweiten Datenreihe anzuzeigen.
Dieser FPScript-Syntax funktioniert aber nicht in VBA.
Meine Frage ist nun: Wie ist der korrekte Syntax, um diesen Einzelwert in VBA, z.B. in der MsgBox anzeigen zu lassen?
Vielen Dank
