ich habe mir folgenden (Beispiel-)Code gestrickt, der zwei Arrays verbindet. Kann man Arrays auch einfacher zusammenfügen oder muss ich das so machen?
Sub ttt()
Dim strTo As Variant
Dim strPSM As Variant
Dim i As Integer
Dim OG As Integer
strPSM = Split("D,E", ",")
strTo = Array("A", "B", "C")
OG = UBound(strTo) + 1
ReDim Preserve strTo(OG + UBound(strPSM))
For i = 0 To UBound(strPSM)
strTo(i + OG) = strPSM(i)
Next i
End Sub
GrußBertram