ich erzeuge in einer Funktion ein zweidimensionales Array, dieses array bekomme ich jedoch nich an eine Sub, um es dann im Blatt auszugeben.
Wie muss ich hier vorgehen?
Sub MeineSub()
Dim MeinArray
MeinArray = ErstelleArray
Sheets(2).Cells(1, 1).Resize(UBound(MeinArray), UBound(MeinArray, 2)) = MeinArray
End Sub
Function ErstelleArray()
ErstelleArray = Sheets(1).Cells(1, 1).CurrentRegion
End Function