Hi,
ich weiß nicht, ob es etwas ausmacht, aber Du hast in Deinem Code bei der Dimensionierung der Variablen zwei Methoden:
Code:
.
Dim wsMon As Worksheet, lngC As Long, arD, arA, arB, arP, arZ, qq As Long
Dim arE(), arF(), ee As Long, ff As Long, bolPr As Boolean
Soviel ich weiß, werden nur die Variablen mit einer speziellen Type versehen, bei denen "As" steht, alle anderen sind Variant.
Das heißt, die Variablen
arD, arA, arB, arP, arZ sind Variant, sollten die nicht Array sein?
qq ist Long
desgleichen:
arE(), arF() sind Variant
ee ist Long
Ich würde es so machen:
Code:
.
Dim wsMon As Worksheet
Dim lngC As Long
Dim arD As Array
Dim arA As Array
Dim arB As Array
Dim arP As Array
Dim arZ As Array
Dim qq As Long
Dim arE() As Array
Dim arF() As Array
Dim ee As Long
Dim ff As Long
Dim bolPr As Boolean
Ist zwar länger, aber übersichtlicher und einfacher nachzuvollziehen.
Außerdem hast Du die Variablen sprechend benamst:
lngC als Long
arD als Array
bolPr als Boolean
Irgendwie stimmt das nicht überein mit den "ar", die Du als Variant definiert hast.