[..]
Dim
arr(6)
arr(0) = Projekt
arr(1) = Werkstatt
arr(2) = Lager
arr(3) = Office
arr(4) = Verwaltung
arr(5) = Verkauf
[...]
For
x = 0
To
5
If
Range(
"F"
& i) = arr(x)
Then
Select
Case
m
Case
1
Worksheets(arr(x)).Range(
"B2"
) = Worksheets(arr(x)).Range(
"B2"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C2"
) = Worksheets(arr(x)).Range(
"C2"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D2"
) = Worksheets(arr(x)).Range(
"D2"
) + Range(
"J"
& i)
Case
2
Worksheets(arr(x)).Range(
"B3"
) = Worksheets(arr(x)).Range(
"B3"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C3"
) = Worksheets(arr(x)).Range(
"C3"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D3"
) = Worksheets(arr(x)).Range(
"D3"
) + Range(
"J"
& i)
Case
3
Worksheets(arr(x)).Range(
"B4"
) = Worksheets(arr(x)).Range(
"B4"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C4"
) = Worksheets(arr(x)).Range(
"C4"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D4"
) = Worksheets(arr(x)).Range(
"D4"
) + Range(
"J"
& i)
Case
4
Worksheets(arr(x)).Range(
"B5"
) = Worksheets(arr(x)).Range(
"B5"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C5"
) = Worksheets(arr(x)).Range(
"C5"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D5"
) = Worksheets(arr(x)).Range(
"D5"
) + Range(
"J"
& i)
Case
5
Worksheets(arr(x)).Range(
"B6"
) = Worksheets(arr(x)).Range(
"B6"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C6"
) = Worksheets(arr(x)).Range(
"C6"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D6"
) = Worksheets(arr(x)).Range(
"D6"
) + Range(
"J"
& i)
Case
6
Worksheets(arr(x)).Range(
"B7"
) = Worksheets(arr(x)).Range(
"B7"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C7"
) = Worksheets(arr(x)).Range(
"C7"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D7"
) = Worksheets(arr(x)).Range(
"D7"
) + Range(
"J"
& i)
Case
7
Worksheets(arr(x)).Range(
"B8"
) = Worksheets(arr(x)).Range(
"B8"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C8"
) = Worksheets(arr(x)).Range(
"C8"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D8"
) = Worksheets(arr(x)).Range(
"D8"
) + Range(
"J"
& i)
Case
8
Worksheets(arr(x)).Range(
"B9"
) = Worksheets(arr(x)).Range(
"B9"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C9"
) = Worksheets(arr(x)).Range(
"C9"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D9"
) = Worksheets(arr(x)).Range(
"D9"
) + Range(
"J"
& i)
Case
9
Worksheets(arr(x)).Range(
"B10"
) = Worksheets(arr(x)).Range(
"B10"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C10"
) = Worksheets(arr(x)).Range(
"C10"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D10"
) = Worksheets(arr(x)).Range(
"D10"
) + Range(
"J"
& i)
Case
10
Worksheets(arr(x)).Range(
"B11"
) = Worksheets(arr(x)).Range(
"B11"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C11"
) = Worksheets(arr(x)).Range(
"C11"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D11"
) = Worksheets(arr(x)).Range(
"D11"
) + Range(
"J"
& i)
Case
11
Worksheets(arr(x)).Range(
"B12"
) = Worksheets(arr(x)).Range(
"B12"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C12"
) = Worksheets(arr(x)).Range(
"C12"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D12"
) = Worksheets(arr(x)).Range(
"D12"
) + Range(
"J"
& i)
Case
12
Worksheets(arr(x)).Range(
"B13"
) = Worksheets(arr(x)).Range(
"B13"
) + Range(
"H"
& i)
Worksheets(arr(x)).Range(
"C13"
) = Worksheets(arr(x)).Range(
"C13"
) + Range(
"I"
& i)
Worksheets(arr(x)).Range(
"D13"
) = Worksheets(arr(x)).Range(
"D13"
) + Range(
"J"
& i)
Case
Else
End
Select
End
If
Next
x
[...]