Zitat:

Spalte 0 X-Achse Punkte in Pixel Spalte 1 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle1 Spalte 2 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle2 Spalte 3 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle3 Spalte 4 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle4 Spalte 5 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle5 Spalte 6 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle6 Spalte 7 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle7 Spalte 8 Y-Achse Messwerte zu entsprechendem X-Achsenwert Messstelle8

Private Declare Sub MoveMemory Lib "kernel32.dll" Alias _
        "RtlMoveMemory" (Destination As Any, Source As _
        Any, ByVal Length As Long)
 
Private Sub ArrayAktualisieren()
    Dim points(Zahl) As POINTAPI
 
    Call MoveMemory(points(0), points(1), UBound(points))
    points(UBound(points())) = <Neuer Messwert>
End Sub