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
|