Laufzeitfehler '6' Überlauf
18.10.2019 09:00:00
Lars
ich möchte ein Array mit zwei Spalten erstellen, die Daten dabei kommen aus einer Tabelle mit aktuell 2017 Zeilen. n der ersten Spalte stehen Rechnungsnummern, in der dritten Spalte die Durchlaufzeiten innerhalb eines Workflows. Die Arraygröße sollte dabei alelrdings dynamisch sein, weil sich die Anzahl der zeilen immer wieder verändern kann.
Ab dem 72. Eintrag im Array bekomme ich allerdings immer wieder die Fehlermeldung "Laufzeitfehler '6' Überlauf". Die Variablen habe ich bereits auf Long umgestellt, ich finde einfach den Fehler nicht.
Es wäre klasse, wenn mir jemand helfen kann. Unten mein kurzer Code.
Danke.
Sub ListeErstellen()
'erstellt die Detailansicht, entsprechend der ausgewählten Bearbeitungsdauer
'Deklaration der Variablen
Dim i As Long
Dim n As Long
Dim intDauer As Integer
Dim dblBearbeitungszeit As Double
Dim lngLetzteZeile As Long
Dim varBereich As Variant
Dim arrWorkflow()
'On Error Resume Next
With Workflow
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
n = 2
ReDim arrWorkflow(lngLetzteZeile, 1)
For i = 0 To lngLetzteZeile - 1
arrWorkflow(i, 0) = .Cells(i + 2, 1)
arrWorkflow(i, 1) = .Cells(i + 2, 3)
n = n + 1
Next
End With
End Sub
Anzeige