Teil eines mehrdimensionalen Arrays in kopieren
26.01.2010 08:19:14
Oswald
Hallo und Guten Morgen,
ich möchte aus einem mehrdimensionalen Array einen Teil einer Dimension in eine Variable kopieren und diese dann z.B. an eine Funktion übergeben.
Mir fiel nur wieder eine Lösung ein:
Neues Feld auf Zielgröße setzen und Werte mit Schleife kopieren. Einfachere Lösung?
Ich habe dies bisher nirgends gefunden.
Sub A()
Dim werte()
ReDim werte(10)
ReDim werte(10, 2)
' Hier nun z.B. das zweite Feld an eine Funktion oder Sub übergeben oder auch einfach :)
' in eine weitere Variable zur Weiterverarbeitung speichern
' Hier folgt nun der Fehler; eigentlich klar- zweiten Index erwartet.
' Wie kann ich nun einen Extrakt erstellen.
MachMal werte(1)
' auch folgendes schlägt demnach fehl
dim w
w= werte(1)
'gewünscht hätte ich mir hier ein eindimensionales Feld mit Ubound=2
End Sub
Sub MachMal(TeilWerte)
'Verarbeitung
For i = LBound(TeilWerte) To UBound(TeilWerte)
w = TeilWerte(i)
Next
End Sub
Vielen Dank
Oswald