Arry veketten und kopieren
17.03.2017 11:27:26
Markus
Jetzt geht's darum zwei Array im Sheet Quelle miteinander zu verknüpfen und das Ergebnis im _ Sheet BER in Spalte B zu kopieren. Soweit bin ich schon, das zusammenführen der Array klappt. Aber wie bringe ich das ganze in das zweite Sheet?
Sub Verketten()
Dim i As Long, arr(), iCounter As Integer
Dim dic
Dim ID As String
ReDim arr(1 To 100)
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Quelle")
For i = 2 To UBound(arr, 1)
iCounter = iCounter + 1
arr(iCounter) = Cells(i, 4) & Cells(i, 5)
'MsgBox (arr(iCounter))
Next
End With
End Sub
Nochmals Danke
MS
Anzeige