ActiveSheet.Cells(2, 1).Interior.ColorIndex = 15
ActiveSheet.Cells(2, 2).Interior.ColorIndex = 15
With ActiveSheet.Range(Cells(1, 1), Cells(zeilen_anz, 1)).Font
.Bold = True
.Size = 10
End With
With ActiveSheet.Range(Cells(1, 2), Cells(2, 2)).Font
.Bold = True
.Size = 10
End With
With ActiveSheet.Cells(1, 1).Borders
.LineStyle = xlContinuous
.ColorIndex = 1
.Weight = xlMedium
End With
With ActiveSheet.Cells(2, 1).Borders
.LineStyle = xlContinuous
.ColorIndex = 1
.Weight = xlMedium
End With
With ActiveSheet.Range(Cells(3, 1), Cells(zeilen_anz, 34))
.BorderAround LineStyle:=xlContinuous
.BorderAround ColorIndex:=1
.BorderAround Weight:=xlMedium
End With
With ActiveSheet.Range(Cells(3, 2), Cells(zeilen_anz, 2))
.BorderAround LineStyle:=xlContinuous
.BorderAround ColorIndex:=1
.BorderAround Weight:=xlMedium
End With