Also das hier war nun meine Idee:

[..]

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

[...]

Leider bekomme ich schon nach "arr(5) = Verkauf" eine Fehlermeldung:

Laufzeitfehler 424 - Objekt erforderlich

Ich dachte das ich arr vielleicht falsch dimensioniert habe. Da er die 0 mit wertet aber nur bis 5 geht, habe ich bei DIM arr() auch schon die 5 in Klammern gesetzt. Folge ist der gleiche Fehler =(