Run-time error 1004
HejEr kørt fast, får følgende fejl
Application-defined or Object-defined error
I min kode:
Dim NewArray(1 To 2000, 1 To 10)
Dim newArea As Range
Set newArea = ws.Range("E3", ws.Cells(UBound(NewArray, 1), 14))
newArea = NewArray
fejlen opstår når newArea skal have NewArray
Debug.Print "newArea Adresse =" & newArea.Address
Debug.Print "NewArray (" & LBound(NewArray, 1) & " To " & UBound(NewArray, 1) & "," & LBound(NewArray, 2) & " To " & UBound(NewArray, 2) & ")"
giver nedenstående:
newArea Adresse =$E$3:$N$2000
NewArray (1 To 2000,1 To 10)
Hjælp
Jan
