|
Hallo Zusammen
ich habe ein Problem, bei dem ich im Moment nicht weiter komme und ich hoffe, dass mir hier geholfen werden kann :)
Ein Auszug aus meinem VBA-Code sieht wiefolgt aus :
......
ReDim Preserve Zeilen(UBound(Zeilen) + 1)
Zeilen(UBound(Zeilen)) = Zeilen(UBound(Zeilen) - 1) + Mai2020(UBound(Mai2020))
ElseIf (m = 6) Then
ReDim Preserve Zeilen(UBound(Zeilen) + 1)
Zeilen(UBound(Zeilen)) = Zeilen(UBound(Zeilen) - 1) + Juni2020(UBound(Juni2020))
ElseIf (m = 7) Then
ReDim Preserve Zeilen(UBound(Zeilen) + 1)
Zeilen(UBound(Zeilen)) = Zeilen(UBound(Zeilen) - 1) + Juli2020(UBound(Juli2020))
....
Diese Abfrage läuft über mehrere Monate und Jahre und ist demzufolge elend lang und nicht schön.
Ich könnte mir vorstellen, dass ich diese Abfrage ganz einfach gestalten könnte, in dem ich folgendes schreibe:
1 2 | ReDim Preserve Zeilen(UBound(Zeilen) + 1)
Zeilen(UBound(Zeilen)) = Zeilen(UBound(Zeilen) - 1) + Monat & Jahr(UBound(Monat & Jahr))
|
Allerdings kommt dann der Fehler: "Erwartet: Datenfeld" , da dieses Array "Monat & Jahr" nicht so direkt existiert.
Jetzt wäre meine Frage, wie ich das trotzdem vereinfachen kann, indem ich die Abfrage auf dem Array mache, wobei ich den Namen des Arrays mithilfe von Variablen erstelle.
Danke schonmal im Vorraus.
|