Sub Makro2()
Dim r As Integer
Dim c As Integer
Dim N As Integer
Dim Zellposition As String
Application.ScreenUpdating = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
N = WorksheetFunction.Max(Columns(1))
r = N + 3
Rows(N + 3).Select
Selection.Insert Shift:=xlDown
Range("A" & N + 3).Select
ActiveCell.FormulaR1C1 = N + 1
For c = 3 To 7
Cells(r, c).Select
Zellposition = ActiveCell.Address
ActiveSheet.CheckBoxes.Add((c - 1) * 60, (r - 1) * 15, 60, 17.25).Select
With Selection
.Value = xlOff
.LinkedCell = Zellposition
.Display3DShading = True
.Placement = xlMoveAndSize
End With
Next
Range("C" & r).Select
Application.ScreenUpdating = False
End Sub