Private Sub MynachbereitungOTHER(blattname, letztezeile)
Dim Reihe As Range, i, ALMPfad
Dim Flag As Boolean
For i = 7 To letztezeile
Flag = True
ALMPfad = Sheets(blattname).Cells(i, 15).Value
If ALMPfad = leer Then Exit For
If InStr(ALMPfad, "TestCenter_DE") > 0 Then Flag = False
If InStr(ALMPfad, "XYZ") > 0 Then Flag = False
If InStr(ALMPfad, "ABC") > 0 Then Flag = False
If Sheets(blattname).Cells(6, 35).Value = 1 Then Flag = False
If Flag Then
If Reihe Is Nothing Then
Set Reihe = Sheets(blattname).Rows(i)
Else
Set Reihe = Union(Reihe, Sheets(blattname).Rows(i))
End If
loeschen = loeschen + 1
End If
Next i
If Not Reihe Is Nothing Then
Debug.Print Reihe.Address
End If
End Sub