Hallo Paulsche,
Es gäbe eine Möglichkeit eine Matrix für diese Variablen zu nützen:
Zum Beispiel:
Dim MonatVerbrauch(100,3)
MonatVerbrauch(i,0) = MonatVerbrauch
MonatVerbrauch(i,1) = MonatLiter
MonatVerbrauch(i,2) = MonatEuro
statArt= 0 oder 1 oder 2
Das gleiche würde auch mit Type Variablen funktionieren.
Dim Type(Verbrauch,Liter,EUR)Monat(100)
die Variablen heissen dann:
Monat(i).Verbrauch oder Monat(i,0)
Monat(i).Liter oder Monat(i,1)
Monat(i).Euro oder Monat(i,2)
usw.
statArt= 0 oder 1 oder 2
In diesem Fall kannst Du beide Schreibweisen benützen, im Programm die linke zur Übersichtlichkeit und in der Routine die rechte zur Vereinfachung des Codes..
Hoffe dass es verständlich ist.
Deine Lösung ist vielleicht übersichtlicher.
Beste Grüsse.