Private Sub Zeilen_Loeschen()
Dim Zeile As Long
Dim Anzahl As Long
Dim ZeileMax As Long
Dim i As Long
ZeileMax = Worksheets("Rohdaten").Cells(Rows.Count, 13).End(xlUp).Row
For Anzahl = 1 To UserForm2.TextBox12.value + 1
For Zeile = ZeileMax To 1 Step -1
If Worksheets("Rohdaten").Cells(Zeile, 1).value = UserForm2.ComboBox1.value And Worksheets("Rohdaten").Cells(Zeile, 13).value = UserForm2.ComboBox4.value Then
Anzahl = Anzahl + 1
Worksheets("Rohdaten").Rows(Zeile).Delete
End If
If Anzahl = UserForm2.TextBox12.value + 1 Then Exit For
If Zeile = 1 Then i = MsgBox("BlaBlaBlaBlaBlaaaaa!", vbCritical, "Error!")
If i = vbOK Then Exit Sub
Next Zeile
Next Anzahl
Unload UserForm2
End Sub