Office: Mehrspaltiges Array

Hi Helfer,

ich habe ein mehrspaltiges Array und möchte eine bestimmte Zeile im Tabellenblatt ausgeben. Mein bisheriger Code ist so aus, dass jede Spalte der bestimmten Zeile des Arrays einzeln übertragen wird (simpler Beispielcode):
Code:

Zeile 8 des Arrays wird in Zeile 1 Spalte D bis F ausgegeben.

Frage: Wie müsste der Code aussehen, alle 3 Spalten in einem Ritt auszugeben?

Ich habe es schon mit Resize versucht, habe es jedoch leider nicht zum Laufen bekommen, da ich nicht weiß, wie ich die Spalten von 1 bis 3 im Array gleichzeitig anspreche.




:)

 

HAllo KArin

Entweder umschaufeln in ein temporäres Array:

Option Explicit

Sub ArrayEinzelzeile()
Dim arrWerte
Dim i As Integer
arrWerte = Range("A1:C12")
Redim arrtmp(1 To UBound(arrWerte, 2)) As Variant
For i = 1 To UBound(arrWerte, 2)
arrtmp(i) = arrWerte(8, i)
Next
Cells(1, 4).Resize(, UBound(arrtmp)) = arrtmp
End Sub


Oder so:

Sub ArrayEinzelzeile()
Dim arrWerte
arrWerte = Range("A1:C12")
Cells(1, 4).Resize(, UBound(arrWerte, 2)) = WorksheetFunction.Index(arrWerte, 8)
End Sub


ransi

 

Hi ransi,

vielen Dank - genau das habe ich gesucht.

 

Hallo Karin,

[Edit]
Huch, steht ja schon als 2. Variante bei ransi im Post.... sorry, überlesen (ist wohl schon zu spät für mich *wink.gif*)
[/Edit]

Grüße
EarlFred

 

Hi ransi,

noch eine Frage: könnte man nur Spalte 2 und 3 des Arrays und nicht alle 3 Spalten übertragen, ohne sie in einem temporäten Array zwischenzuspeichern?