Viele Bedinungen in einer IF-Abfrage mit And

' Definition der Quell-, Zieldatei und des Tabellenbereichs:
Dim wsQuelle As Worksheet                                   'Variable: Quelldatei anlegen
Dim wsZiel As Worksheet                                     'Variable: Zieldatei anlegen
Dim wsAuswahlmaske As Worksheet                             'Variable: Tabelle " _
Auswahlmaske" anlegen
Dim rng_Tabellenbereich As Range                            'Variable: Tabellenbereich  _
anlegen
'Dim TextBox1 As TextBox
Set wsQuelle = Worksheets("Kopie Wärmeatlas")                'Variable: Quelldatei "Kopie Wä _
rmeatlas festlegen
Set wsZiel = Worksheets("Zieltabelle")                       'Variable: Zieldatei " _
Zieltabelle" festlegen
Set wsAuswahlmaske = Worksheets("Auswahlmaske")             'Variable: Auswahlmakse  _
festlegen
Set rng_Tabellenbereich = wsQuelle.Range("$A$1:$W$166124")  'Variable: Tabellenbereich  _
festlegen
If str_filtern_Wohngebäude = "Ja" And str_filtern_Nichtwohngebäude = "Nein" And  _
str_filtern_Energieträger = "Nein" And str_filtern_FW = "Nein" _
And str_filtern_FWohneG = "Nein" And str_filtern_FWmitG = "Nein" And str_filtern_FWmitG_ND = _
_
"Nein" And str_filtern_FWmitG_MD = "Nein" And _
str_filtern_FWmitG_HD = "Nein" And str_filtern_GAS = "Nein" And str_filtern_GAS_ND = "Nein"  _
_
And str_filtern_GAS_MD = "Nein" _
And str_filtern_GAS_HD = "Nein" And str_filtern_ÖlKohle = "Nein" And str_filtern_Strom = "  _
_
Nein" And str_filtern_Wärmebedarf = "" _
And str_filtern_Nutzungsart = "Nein" And str_filtern_EFH = "Nein" And str_filtern_MFH = " _
Nein" And str_filtern_GMH = "Nein" And str_filtern_HH = "Nein" _
And str_filtern_Gebäudegröße = "" And str_filtern_Gebäudeumbau = "Nein" And str_filtern_PV = _
_
"Nein" _
And str_filtern_PVsehrgut = "Nein" And str_filtern_PVgut = "Nein" And str_filtern_PVbedingt  _
_
= "Nein" And str_filtern_PVvorOrt = "Nein" Then
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array("Wochenendhaus", "Wohnhaus", "  _
_
Wohnheim"), Operator:=xlFilterValues
End If