|
wenn Project nicht vorher definiert ist, dann
arr(0) = "Projekt"
case m 'm ist aus dem gezeigten Code nicht verständlich
Worksheets(arr(x)).Range("B2") = Worksheets(arr(x)).Range("B2") + Range("H" & i)
B2 ist ordentlich referenziert, aber Range("H" & i) ist immer das "ActiveSheet", einmal falsch geklickt und es gibt Chaos
Die Namen der Sheets in arr() zu übergeben, ist zwar möglich (kein Fehler), aber übersichtlicher ist
ShtN = array("Projekt", usw)
um Schreibarbeit zu sparen geht auch:
with Worksheets(arr(x))
Case 1
.Range("B2") = .Range("B2") + Range("H" & i)
.Range("C2") = .Range("C2") + Range("I" & i)
.Range("D2") = .Range("D2") + Range("J" & i)
Case 2
usw ...
end with
die Liste der Bemerkungen ist sicher unvollständig
|