Filter erweitern

Bild

Betrifft: Filter erweitern
von: Jochen Bode
Geschrieben am: 05.05.2015 14:59:48

Hallo Excel – Freunde ich bin’s nochmal.
In einem Filter kommen folgende Zeilen vor:
For i = 6 To 39
If ActiveWorkbook.ActiveSheet.Cells(i, 5) = "Planung in Abstimmung" Then
'Or ActiveWorkbook.ActiveSheet.Cells(i, 5) = "Zuordnung" _
'Or ActiveWorkbook.ActiveSheet.Cells(i, 5) = "Dauer-VE" _
Range(ActiveWorkbook.ActiveSheet.Cells(i, 1), ActiveWorkbook.ActiveSheet.Cells(i, 68)).ClearContents
End If
Next i
Kann ich das zweite und dritte Kriterium mit in die erste Abfrage einbinden und wenn ja wie???
Besser wäre noch aus einem Bereich einer Tabelle, “Daten A1:A10“, in der ich die Kriterien jeder Zeit erweitern kann.
Danke schon mal.
Gruß Jochen

Bild

Betrifft: AW: Filter erweitern
von: Nepumuk
Geschrieben am: 05.05.2015 15:30:28
Hallo,
teste mal:

Public Sub Loeschen_mit_Filter()
    Dim strFilter As String
    Dim lngRow As Long
    strFilter = vbNullChar & Join(WorksheetFunction.Transpose( _
        Worksheets("Daten").Range("A1:A10").Value), vbNullChar) & vbNullChar
    For lngRow = 6 To 39
        If InStr(1, strFilter, vbNullChar & Cells(lngRow, 5).Value & vbNullChar) > 0 Then _
            Range(Cells(lngRow, 1), Cells(lngRow, 68)).ClearContents
    Next
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Filter erweitern
von: Jochen Bode
Geschrieben am: 05.05.2015 16:18:10
Hallo Nepumuk,
danke für die schnelle Hilfe alles im grünen Bereich;-))
Gruß
Jochen

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Filter erweitern"