Sub Ausgewaehlte_Zeilen_Löschen()
i = 31
n = 1
Do While i < 900
If Worksheets("Eingabeseite").Cells(i, 1) = Empty Then
Exit Do
Else
If Worksheets("Eingabeseite").OLEObjects("CheckBox" & n).Object.Value = True Then
If i = 31 And Worksheets("Eingabeseite").Cells(i + 1, 1) = Empty Then
Worksheets("Eingabeseite").Range("A31") = Clear
Worksheets("Eingabeseite").Range("B31") = Clear
Worksheets("Eingabeseite").Range("C31") = Clear
Worksheets("Eingabeseite").Range("D31") = Clear
Worksheets("Eingabeseite").Range("E31") = Clear
Worksheets("Eingabeseite").Range("F31") = Clear
Worksheets("Eingabeseite").Range("G31") = Clear
Worksheets("Eingabeseite").Range("H31") = Clear
Worksheets("Eingabeseite").Range("G31") = Clear
Worksheets("Eingabeseite").Range("I31") = Clear
Worksheets("Eingabeseite").Range("J31") = Clear
Worksheets("Eingabeseite").Range("K31") = Clear
Worksheets("Eingabeseite").Range("L31") = Clear
Worksheets("Eingabeseite").Range("M31") = Clear
Worksheets("Eingabeseite").Range("N31") = Clear
Worksheets("Eingabeseite").Range("O31") = Clear
Worksheets("Eingabeseite").Range("P31") = Clear
Worksheets("Eingabeseite").Range("Q31") = Clear
Else
Worksheets("Eingabeseite").Range(Worksheets("Eingabeseite").Cells(i, 1), Worksheets("Eingabeseite").Cells(i, 16)).Delete
End If
For Each OLEObject In Worksheets("Eingabeseite").OLEObjects
If InStr(OLEObject.progID, "CheckBox") Then
OLEObject.Delete
End If
Next
j = 31
Do While j < 900
If Worksheets("Eingabeseite").Cells(j, 1) = Empty Then
Exit Do
Else
If Worksheets("Eingabeseite").Cells(j, 1) = "Windrad" Then
Worksheets("Eingabeseite").OLEObjects.Add "Forms.CheckBox.1", Left:=Cells(j + 1, 17).Left, Top:=Cells(j + 1, 17).Top, Width:=Cells(j + 1, 17).Width, Height:=Cells(j + 1, 17).Height
Else
Worksheets("Eingabeseite").OLEObjects.Add "Forms.CheckBox.1", Left:=Cells(j, 17).Left, Top:=Cells(j, 17).Top, Width:=Cells(j, 17).Width, Height:=Cells(j, 17).Height
End If
j = j + 1
End If
Loop
Exit Do
End If
i = i + 1
n = n + 1
End If
Loop
End Sub