Private xlsRange As Excel.Range
 
...
...
...
 
'=================================='
'=== Setzt die Hintergrundfarbe ==='
Public Sub setBackgroundColor(ByVal rowBegin As Integer, _
                           ByVal columnBegin As Integer, _
                           ByVal rowEnd As Integer, _
                           ByVal columnEnd As Integer, _
                           ByVal backgroundColor As color)
    With xlsSheet
        Set xlsRange = .Range(.Cells(rowBegin, columnBegin), .Cells(rowEnd, _
          columnEnd))
        xlsRange.Interior.color = backgroundColor
    End With
End Sub
'=================================='