Spalte zu einem Array hinzufügen

10/12/2014 - 14:10 von Andreas | Report spam
Hallo NG!

Wie füge ich einem Array nachtràglich eine Spalte hinzu?

Mit folgendem Code weise ich einem Array den Bereich A1:A1000 in Sheet(1) zu. Wie würde ich das Array auf zwei Spalten erweitern und dann Spalte C1:C1000 in Sheet(2) zuweisen? Im Moment habe ich folgenden Code:


Option Base 1

Sub TestArray()

Dim arrTest As Variant

arrTest = Sheets(1).Range(Cells(1, 1), Cells(1000, 1)).Value
ReDim Preserve arrTest(1 To 1000, 1 To 2)

End Sub

Danke und viele Grüße
Andreas
 

Lesen sie die antworten

#1 Claus Busch
10/12/2014 - 15:57 | Warnen spam
Hallo Andreas,

Am Wed, 10 Dec 2014 05:10:04 -0800 (PST) schrieb Andreas:

Wie füge ich einem Array nachtràglich eine Spalte hinzu?



ein Array aus einem Bereich ist aufgebaut wie eine Tabelle. Deshalb ist
solch ein Array auf 1-basiert. Du brauchst kein Option Base 1 zu
schreiben. Du verweist auf einen Wert im Array genau wie auf eine Zelle
=arrTest(1,2) liest den ersten Eintrag der zweiten Spalte aus.
Wenn du nun einen nicht zusammenhàngenden Bereich in ein Array einfügen
möchtest, musst du in einlesen:

arrTest = Range("A1:A1000")

ReDim Preserve arrTest(1 To 1000, 1 To 2)
For i = 1 To 1000
arrTest(i, 2) = Cells(i, 3)
Next


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen