ich habe ein Verständnisproblem mit Arrays und hoffe mal wieder auf eure geniale Hilfe...
Ich lese aus Spalte A alle unterschiedlichen Einträge in ein Array ein. Das klappt soweit.
Doch was ich nicht hinbekomme ist, dieses Datenfeld komplett (auf einen Schlag)
in Spalte C zu schreiben. Ich würde mir gerne eine For-Schleife ersparen, die jeden einzelnen Array-Wert abarbeitet.
Kann mir jemand auf die Sprünge helfen?
vielen Dank vorab
Christian
(den untenstehen Code zum Einlesen der Werte in den Array habe ich mir aus diversen Beiträgen aus dem Archiv zusammengebastelt, kann also durchaus sein, dass dieser durch meine "Bastelei" nicht der eleganteste ist...auch hier wäre ich für Verbesserungsvorschläge dankbar)
Option Explicit
Sub TestArray()
Dim arrList(), vgl
Dim i As Integer
Dim k As Integer
With Sheets("Tabelle1")
'Array füllen
k = 0
ReDim arrList(0)
For i = 2 To 20
vgl = Application.Match(.Cells(i, 1), arrList, 0)
If IsError(vgl) Then
ReDim Preserve arrList(k)
arrList(k) = .Cells(i, 1)
k = k + 1
End If
Next i
'Array in Spalte C schreiben:
'HIERZU SUCHE ICH DIE RICHTIGE LÖSUNG...
.Range("C2:C" & UBound(arrList) + 2) = arrList
'BRINGT NUR DEN ERSTEN ARRAY-WERT
End With
End Sub