Hallo ihr,
Habe ein Problem und zwar:
Mein Code:
With ThisWorkbook.Sheets("Datas")
LastRow = Range("B99999").End(xlUp).Row
If LastRow < 5 Then LastRow = 5
If Range("C3").Value = "" Then Auftragsnummer = Empty Else: Auftragsnummer = .Range("C3").Value
If Range("D3").Value = "" Then Arbeitsplatznummer = Empty Else: Arbeitsplatznummer = .Range("D3").Value
If Range("J3").Value = "" Then HS = Empty Else: HS = .Range("J3").Value
If Range("K3").Value = "" Then Typ = Empty Else: Typ = .Range("K3").Value
If Range("L3").Value = "" Then Materialnummer = Empty Else: Materialnummer = .Range("L3").Value
If Range("N3").Value = "" Then Produktiv = Empty Else: Produktiv = .Range("N3").Value
.Range("B4:O" & LastRow).Select
Selection.AutoFilter
With .Range("B4:O" & LastRow)
If Auftragsnummer <> Empty Then .AutoFilter Field:=2, Criteria1:="like" '& Auftragsnummer & "*"
If Arbeitsplatznummer <> Empty Then .AutoFilter Field:=3, Criteria1:="=*" & Arbeitsplatznummer & "*"
If HS <> Empty Then .AutoFilter Field:=9, Criteria1:="=*" & HS & "*"
If Typ <> Empty Then .AutoFilter Field:=10, Criteria1:="=*" & Typ & "*"
If Materialnummer <> Empty Then .AutoFilter Field:=11, Criteria1:="like" '& Materialnummer & "*"
If Produktiv <> Empty Then .AutoFilter Field:=13, Criteria1:="=*" & Produktiv & "*"
End With
.Range("4:4").EntireRow.Hidden = True
End With
End Sub
Leider klappt der Filter bei Material wie Auftragsnummer nicht ! Ansonsten funktioniert er !
Bitte um Hilfe...