Dynamisches Array macht Code kaputt
08.09.2022 11:23:09
eric
Sub Mit_Dynamischem_Array()
Dim n()
Dim size as Integer
Dim IntervalType As String
Dim i As Integer
IntervalType="yyyy"
size=WorksheetFunction.CountA(Worksheets(1).Columns(1))
ReDim n(size)
For i=1 To size
n(i) = Cells (i, 4).Value
If Cells (n(i), 4) - Date