Der Index "1" liegt außerhalb des gültigen Bereichs.

[Ghilghi]

Hallo zusammen,

beim Programmieren bekomme ich den oben genannten Fehler.

kann jemand mir erklären, was der bedeutet.???

Gruß

Ghislain

[Stephan_D]

Hi Ghislain,

die Antowrt ist so kurz wie deine Frage: Du scheinst auf ein Element in einem Array/Kanal zugreifen zu wollen, welches es nicht gibt.

Stephan

[Brad_Turpin]

Hi Ghilghi,

Can you post the line of code on which this error is occurring?  We might be able to make a more specific recommendation...

Brad Turpin

DIAdem Product Support Engineer

National Instruments

[Nic22]

Hello all,

I have entered x and y channel in a 2d axis system and then copied the script by right-clicking on the axis system. I was hoping that if I ran this script with the report file already open, it would copy the channels into the system. Unfortunately, the error appears with the index.

'-------------------------------------------------------------------------------
'-- VBS-Script-Datei
'-- Neu erstellt am 03.06.2024 11:21:53
'-- Ersteller:
'-- Kommentar:
'-------------------------------------------------------------------------------
Option Explicit 'Erzwingt die explizite Deklaration aller Variablen in einem Script.
Dim oCtrl, o2DAxisSystem, oColorLegend, oCurveLegend, o2DLine, o2DAxisX, oAxisLabel, oLabelNumeric, o2DAxisY
Set oCtrl = Report.Sheets("Blatt 1").Objects("2DAxis1")
'Set oCtrl = Report.Sheets("Blatt 1").Objects.Add(eReportObject2DAxisSystem, "2DAxis1")
'------------------- 2DAxisSystem ------------------------------
'Set o2DAxisSystem = Report.Sheets("Blatt 1").Objects("2DAxis1")
Set o2DAxisSystem = oCtrl

'------------------- ColorLegend ------------------------------
'Set oColorLegend = Report.Sheets("Blatt 1").Objects("2DAxis1").ColorLegend
Set oColorLegend = o2DAxisSystem.ColorLegend
o2DAxisSystem.ColorLegend.Visible = false' ColorLegend ColorLegend not enabled

'------------------- CurveLegend ------------------------------
'Set oCurveLegend = Report.Sheets("Blatt 1").Objects("2DAxis1").CurveLegend
Set oCurveLegend = o2DAxisSystem.CurveLegend
o2DAxisSystem.CurveLegend.Visible = false' CurveLegend CurveLegend not enabled
'----------------------------------------------------------------------------
'----- 2D Shape ----- Anzahl ----- e2DShapeLine -----
'----------------------------------------------------------------------------
'Set <VarName> = Report.Sheets("Blatt 1").Objects("2DAxis1").Curves2D.Add(e2DShapeLine, "Anzahl")
'------------------- 2DLine ------------------------------
'Set o2DLine = Report.Sheets("Blatt 1").Objects("2DAxis1").Curves2D.Item(1).Shape
Set o2DLine = o2DAxisSystem.Curves2D.Item(1).Shape

[Simon_SP]

14.06.2024 10:57:03 Fehler:
Fehler in <NoName(17).VBS> (Zeile: 32, Spalte: 1):
Der Index "1" liegt außerhalb des gültigen Bereichs

Den gleichen Fehler habe ich auch und komme nicht weiter. 

Ich habe im Report ein Diagramm erstellt und einige Kurvenanapassungen durchgeführt. Das fertige Diagramm habe ich dann als Script kopiert und eingefügt. Nun möchte ich es in einem neuen Blatt einfügen und dann erscheint der Fehler. 

Woran kann das liegen