Redim Preserve
08.01.2023 17:05:28
Herbert_Grom
manchmal steht man auf der Leitung und sieht den Wald vor lauter Bäumen nicht! Der folgende Code ist nur ein Ausschnitt aus dem ganzen Code. Der Rest läuft ohne Probleme durch.
Option Explicit
Option Base 1
Sub test()
Dim dAuswahlDatum As Date, arrDaten(), lArrCount&, lRowS&, lCol&, lLastRow&
For lRowS = 4 To lLastRow
If Cells(lRowS, 1) = dAuswahlDatum Then
lArrCount = lArrCount + 1
ReDim Preserve arrDaten(1 To lArrCount, 1 To 16)
For lCol = 1 To 16
arrDaten(lArrCount, lCol) = Cells(lRowS, lCol)
Next lCol
End If
Next lRowS
End Sub
Beim 2. Durchlauf steigt er mir in der Redim-Zeile aus, wenn lArrCount auf 2 wechselt. Ich habe schon alle möglichen Redim-Varianten ausprobiert, aber keine funktionierende gefunden. Könnt ihr mir bitte sagen, wo ich da den Fehler eingebaut habe? Vielen Dank im Voraus.Servus