With Sheets(TABSUMM)
Set rngc = Range(TABPOSS).EntireColumn.Cells(1)
Set rngNext = Range(TABPOSS).EntireColumn.Find("*", rngc, -4123, 2, , 2).Offset(1)
rngNext.Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End With
'ersetze durch:
With Sheets(TABSUMM)
Set rngc = .Range(TABPOSS).EntireColumn.Cells(1)
Set rngNext = .Range(TABPOSS).EntireColumn.Find("*", rngc, -4123, 2, , 2).Offset(1)
rngNext.Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End With
|