'Excel-Tabellenbereich markieren:
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range 
Set r1 = Range(Cells(7, 27), Cells(7 + ComboNamen.ListCount - 1, 27))
Set r2 = Range(Cells(7, 28), Cells(7 + ComboNamen.ListCount - 1, 28))
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
'Excel-Diagramm hinzufügen:
Set xlChart = xlAppl.Charts.Add()
xlChart.Type = xl3DColumn
xlChart.Legend.Delete   
With xlChart    
.HasTitle = True    .
.ChartTitle.Text = "Schülerabsenzen Übersicht - Stand: " & Date & ", um " & Time  
End With 
'Excel-Diagramm rotieren lassen:
For i = 30 To 180 Step 1   
 xlChart.Rotation = i
DoEvents
Next