Private Sub CheckBox1_Click()
 
       If CheckBox1.Value = True Then
            For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = "" Then Exit For
           Next i
           Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
             "Tabelle1").Cells(4, 3).Value
           Worksheets("Tabelle3").Cells(i, 3).Value = Worksheets( _
           "Tabelle1").Cells(4, 4).Value
           Worksheets("Tabelle3").Cells(i, 5).Value = Worksheets( _
           "Tabelle1").Cells(4, 5).Value
 
       Else
           For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
                 "Tabelle1").Cells(4, 3).Value Then Exit For
           Next i
           Worksheets("Tabelle3").Rows(i).Delete
       End If
 
End Sub
Private Sub CheckBox2_Click()
 
       If CheckBox2.Value = True Then
   For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = "" Then Exit For
           Next i
           Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
             "Tabelle1").Cells(5, 3).Value
           Worksheets("Tabelle3").Cells(i, 3).Value = Worksheets( _
           "Tabelle1").Cells(5, 4).Value
           Worksheets("Tabelle3").Cells(i, 5).Value = Worksheets( _
           "Tabelle1").Cells(5, 5).Value
 
       Else
           For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
                 "Tabelle1").Cells(5, 3).Value Then Exit For
           Next i
           Worksheets("Tabelle3").Rows(i).Delete
       End If
 
End Sub
Private Sub CheckBox3_Click()
 
       If CheckBox3.Value = True Then
   For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = "" Then Exit For
           Next i
           Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
             "Tabelle1").Cells(6, 3).Value
           Worksheets("Tabelle3").Cells(i, 3).Value = Worksheets( _
           "Tabelle1").Cells(6, 4).Value
           Worksheets("Tabelle3").Cells(i, 5).Value = Worksheets( _
           "Tabelle1").Cells(6, 5).Value
 
       Else
           For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
                 "Tabelle1").Cells(6, 3).Value Then Exit For
           Next i
           Worksheets("Tabelle3").Rows(i).Delete
       End If
 
End Sub
Private Sub CheckBox4_Click()
 
       If CheckBox4.Value = True Then
    For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = "" Then Exit For
           Next i
           Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
             "Tabelle1").Cells(7, 3).Value
           Worksheets("Tabelle3").Cells(i, 3).Value = Worksheets( _
           "Tabelle1").Cells(7, 4).Value
           Worksheets("Tabelle3").Cells(i, 5).Value = Worksheets( _
           "Tabelle1").Cells(7, 5).Value
 
       Else
           For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
                 "Tabelle1").Cells(7, 3).Value Then Exit For
           Next i
           Worksheets("Tabelle3").Rows(i).Delete
       End If
 
End Sub
Private Sub CheckBox5_Click()
 
       If CheckBox5.Value = True Then
     For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = "" Then Exit For
           Next i
           Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
             "Tabelle1").Cells(8, 3).Value
           Worksheets("Tabelle3").Cells(i, 3).Value = Worksheets( _
           "Tabelle1").Cells(8, 4).Value
           Worksheets("Tabelle3").Cells(i, 5).Value = Worksheets( _
           "Tabelle1").Cells(8, 5).Value
 
       Else
           For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
                 "Tabelle1").Cells(8, 3).Value Then Exit For
           Next i
           Worksheets("Tabelle3").Rows(i).Delete
       End If
 
End Sub
Private Sub CheckBox6_Click()
 
       If CheckBox6.Value = True Then
     For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = "" Then Exit For
           Next i
           Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
             "Tabelle1").Cells(9, 3).Value
           Worksheets("Tabelle3").Cells(i, 3).Value = Worksheets( _
           "Tabelle1").Cells(9, 4).Value
           Worksheets("Tabelle3").Cells(i, 5).Value = Worksheets( _
           "Tabelle1").Cells(9, 5).Value
 
       Else
           For i = 2 To 300
               If Worksheets("Tabelle3").Cells(i, 2).Value = Worksheets( _
                 "Tabelle1").Cells(9, 3).Value Then Exit For
           Next i
           Worksheets("Tabelle3").Rows(i).Delete
       End If
 
End Sub