'=================================='
'=== 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 xlsBook.ActiveSheet
        .Activate
        Range(Cells(rowBegin, columnBegin), Cells(rowEnd, _
          columnEnd)).Interior.color = backgroundColor
    End With
End Sub
'=================================='