Code zusammenführen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim loeschen As Double
For loeschen = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(loeschen, 2).Value = "NO" Or Cells(loeschen, 16).Value = "exists" Then
Rows(loeschen).Delete
End If
Next loeschen
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 7 Or .Column = 17 Then
If .CountLarge = 1 Then
If LCase(Cells(.Row, 7)) = "installed software" And LCase(Cells(.Row, 17)) = "no" Then
Tabelle7.Cells(Tabelle7.Rows.Count, 1).End(xlUp).Offset(1, 0) = Cells(.Row, 1)
End If
End If
End If
End With
End Sub