ist Zelle xx = o dann lösche in anderem Sheet die gesamten Zeilen 11 12 und 13
Sub loeschen()
If Sheets("1").Cells(17, 2) = "o" Then Sheets("GB1").Rows(11, 12, 13).Delete
End Sub
Sub loeschen()
If Sheets("1").Cells(17, 2) = "o" Then Sheets("GB1").Rows(11, 12, 13).Delete
End Sub