Viele Bedinungen in einer IF-Abfrage mit And
05.12.2017 09:24:07
Anka
ich möchte sehr viele Bedingungen (>20) in einer IF-Abfrage erstellen. Diese habe ich alle mit And verbunden, allerdings funktioniert das irgendwie nicht. Das Marko tut gar nichts, auch keine Fehlermeldung?
Gibt es eine maximale Anzahl an Bedingungen in einer If-Abfrage? Ich weis nicht wie ich das anders machen soll, da die Bedingungen alle voneinander abhängen, d.h. z.B. nur wenn bestimmte Zellen mit "Nein" bzw "Ja" versehen sind, soll die If-Abfrage erfolgen.
Unten ist mal meine Code (Die Variablen habe ich schon alle festgelegt, ich wollte die hier nur nicht alle aufführen):
' 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
Wisst Ihr eine Lösung? Ich sitze da jetzt schon ewig dran und weis nicht mehr weiter!
Viele Grüße,
Anka