Thema Datum  Von Nutzer Rating
Antwort
08.11.2019 09:08:43 Yves
NotSolved
08.11.2019 09:37:52 Mase
NotSolved
08.11.2019 10:51:53 Yves
NotSolved
Blau Makro Zeilen löschen wenn 2 Bedingungen erfüllt sind
 08.11.2019 11:01:41 Mase
NotSolved
08.11.2019 11:27:57 Yves
NotSolved
08.11.2019 11:42:10 Mase
Solved
08.11.2019 12:13:12 Yves
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
08.11.2019 11:01:41		 Views:
531		 Rating:
     
Antwort:
  Ja
Thema:
Makro Zeilen löschen wenn 2 Bedingungen erfüllt sind

Hi Yves,

 

schaut doch schonmal gut aus.

Versuch folgendes:

Option Explicit

Sub Zeilen_loeschen()
    Dim wks As Worksheet: Set wks = ActiveSheet
    Dim rng As Range
    With wks
        .ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:="1", Operator:=xlFilterValues
        .ListObjects("Tabelle1").Range.AutoFilter Field:=3, Criteria1:=Array("blau", "gelb", "rot"), Operator:=xlFilterValues
        '
        Set rng = .ListObjects("Tabelle1").DataBodyRange
        Set rng = Intersect(rng, .ListObjects("Tabelle1").Range.SpecialCells(xlCellTypeVisible))
    End With
    '
    rng.EntireRow.Delete
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.11.2019 09:08:43 Yves
NotSolved
08.11.2019 09:37:52 Mase
NotSolved
08.11.2019 10:51:53 Yves
NotSolved
Blau Makro Zeilen löschen wenn 2 Bedingungen erfüllt sind
 08.11.2019 11:01:41 Mase
NotSolved
08.11.2019 11:27:57 Yves
NotSolved
08.11.2019 11:42:10 Mase
Solved
08.11.2019 12:13:12 Yves
NotSolved