|
Hallo Community
Ein wenig Offtopic!
Zwei Ideen für begeisterte von Mehdimensionalen Arrays!
Redim Preserve bei einem zwei Dimensionalen Array,
Bei der Function wird die 1 Dimension von 2 verändert
Function ArrayRedim(Darr As Variant) As Variant
Darr = Application.WorksheetFunction.Transpose(Darr)
ReDim Preserve Darr(LBound(Darr) To UBound(Darr) + 1) '+1 Vergrößerung -1 Verkleinerung
ArrayRedim = Application.WorksheetFunction.Transpose(Darr)
End Function
Ermittlung der Anzahl von Dimensionen!
Limit sind 32 Dimensionen(wahrscheinlich Excelversions bedingt!)
Function DimAnz(Darr As Variant) As Integer
Dim DimIndex As Integer, Anzahl As Integer
On Error GoTo Ende
For DimIndex = 1 To 32
Anzahl = UBound(Darr, DimIndex)
Next DimIndex
Ende:
DimAnz = DimIndex - 1
End Function
Sich ein Mehrdimensionales Gebilde vorzustellen und bezug zu anderen Problemstellungen zu entdecken
fördert das abstracte Denken!
Gruß Michael
|