Farbe = Interior.ColorIndex
> Range(f).Farbe = 15

usw.
> Wenn es so etwas gibt, welchen Variablentyp muss ich dafür verwenden.

wenn ich jetzt nichts falsch verstanden habe, wirst Du das nicht wesentlich kürzen können. Etwas kürzer wäre es vielleicht so möglich:

Sub DeineRoutine()
Faerben \"A1:A5\", 15
Faerben \"B1:B5\", 34
End Sub

Function Faerben(ByVal strBereich As String, ByVal intFarbe As Integer)
Range(strBereich).Interior.ColorIndex = intFarbe
End Function