Laufzeitfehler 9
30.12.2017 16:33:41
adcak
ich bekomme immer ein Laufzeitfehler 9 Index außerhald des gültigen Bereichs.
Und brauche eure Hilfe.
https://www.herber.de/bbs/user/118582.xlsm
in Zeile : ReDim Erg(1 To WorksheetFunction.Sum(.Columns(4)), 1 To .Columns.Count)
ist mein Laufzeitfehler
Sub Dublizieren()
Dim Arr
Dim Erg
Dim z As Long, a As Long, e As Long, s As Long
With Cells(1, 1).CurrentRegion
Arr = .Value
ReDim Erg(1 To WorksheetFunction.Sum(.Columns(4)), 1 To .Columns.Count)
End With
For z = 2 To UBound(Arr, 1)
For a = 1 To Arr(z, 4)
e = e + 1
For s = 1 To UBound(Arr, 2)
Erg(e, s) = Arr(z, s)
Next s
Erg(e, 4) = 1
Next a
Next z
Cells(1, 1).End(xlToRight).Offset(1, 3).Resize(UBound(Erg, 1), UBound(Erg, 2)).Value = Erg
End Sub
Anzeige