Kan man assigne et array fra et subarray (uden brug af løkker)

noget i den stil..


Option Explicit

Private Sub Form_Load()
Dim i As Integer
Dim arrSplit() As Variant
Dim arrMatrix() As Variant

  ReDim arrMatrix(1000, 1000) As Variant

  arrMatrix(0, 0) = Array("A1", "A2", "A3", "A4")

  arrSplit = arrMatrix(0, 0)

  For i = LBound(arrSplit) To UBound(arrSplit)
    MsgBox arrSplit(i)
  Next
End Sub

"uden brug af løkker?" - hvorfor?

Ja man kan selfølige bruge Split() men ikke i 2-dimension.. Men et eller andet sted bliver der nok brugt et loop.. alivel..


Private Sub Form_Load()
Dim i As Integer
Dim arrSplit() As String

  arrSplit = Split("A1,A2,A3,A4", ",")
  For i = LBound(arrSplit) To UBound(arrSplit)
    MsgBox arrSplit(i)
  Next
End Sub

Måske du bare tænker på, om der kan assignes direkte?

Det kan du godt hvis blot det array du assigner til er erklæret som Variant:

Dim txtArray() as String
Dim NewArray(5) as Variant

txtArray = Split("A1,A2,A3,A4,A5",",")
NewArray(2) = txtArray()            'for eksempel

Når du så skal hente værdien skal du huske 2 parenteser:

NewArray(2)(2) holder strengen "A3"