Sub Maschine()
    Dim zz, z
    Dim Such1 As String
    Dim Such2 As String
    Dim anz As Long
    zz = 3
    Such1 = InputBox("Bitte die Maschinennummer eingeben z.b FI \ 6")
    Such2 = "In Produktion"
    If Len(Such1) = 0 Then Exit Sub
    anz = 0
    With Sheets("Produktionsplanung")
        For z = 5 To 30
            If .Cells(z, 1) = Such1 And .Cells(z, 2) = Such2 Then 'in A nach Such1 und in B nach Such2 suchen
                Sheets("MaschineNr1").Cells(zz, 2) = .Cells(z, 1)
                Sheets("MaschineNr1").Cells(zz, 3) = .Cells(z, 2)
                Sheets("MaschineNr1").Cells(zz, 4) = .Cells(z, 6)
                Sheets("MaschineNr1").Cells(zz, 5) = .Cells(z, 10)
                Sheets("MaschineNr1").Cells(zz, 6) = .Cells(z, 11)
                Sheets("MaschineNr1").Cells(zz, 7) = .Cells(z, 7)
                Sheets("MaschineNr1").Cells(zz, 8) = .Cells(z, 8)
                Sheets("MaschineNr1").Cells(zz, 9) = .Cells(z, 9)
                Sheets("MaschineNr1").Cells(zz, 10) = .Cells(z, 43)
                Sheets("MaschineNr1").Cells(zz, 11) = .Cells(z, 44)
                zz = zz + 1: anz = anz + 1
            End If
        Next z
        If anz > 0 Then
            MsgBox "Es wurden zum Suchwert " & SuchWert & vbCrLf & anz & " Datensätze kopiert"
        Else
            MsgBox "Kein Eintrag"
        End If
    End With
    With Sheets("MaschineNr1") ' Abschnitt in dem die Menge der 20 Litergebinde überprüft wird und und rausgelöscht wird
        For zz = .Cells(.Rows.Count, 7).End(xlUp).Row To 3 Step -1
            If .Cells(zz, 7).Value = 20 Then
                If .Cells(zz, 8).Value >= 20 Then
                    .Rows(zz).EntireRow.Delete
                End If
            End If
        Next zz
    End With
End Sub