Office: VBA: Mehrere Bedingungen in einer if then else Anweisung

Hallo zusammen*mrcool ,

ich möchte erreichen, dass eine Zeile (im Beispiel, GLSeg1MC) eingeblendet wird, wenn 3 Bedingungen additiv erfüllt sind.
Ich habe es erfolglos, wie folgt, versucht:

If Range("GUV") = 1 And Range("GLanzeigen") = 1 And Range("SegmentSumme") < 4) Then Range("GLSeg1MC").EntireRow.Hidden = False Else Range("GLSeg1MC").EntireRow.Hidden = True

Kann mir bitte jemand helfen, wie die Syntax lauten muss?

Besten Dank,

:)

 

Hi

ich kann zwar nichts additives erkennen, aber ein Syntaxfehler war drinnen
(eine Klammer war nach der Zahl 4 zuviel drinnen)
Code:

anbei noch eine Kurzform
Code:

 

Hallo, die Klammer habe ich entfernt (war noch ein Restant, als ich diverse Schreibweisen getestet habe), aber der Fehler bleibt.....


Additiv ist, dass ich 3 Bedingungen insgesamt erfüllt haben möchte, damit die Bedingung eintritt....

 

hi

bei mir geht der Code den ich gepostet habe.

wenn du es umgekehrt haben willst

Range("GLSeg1MC").EntireRow.Hidden = not(Range("GUV") = 1 And Range("GLanzeigen") = 1 And Range("SegmentSumme") < 4)

 

Hallo chris,

ich erhalte beim Einbetten Deiner Lösung 1 in mein Makro die Fehlermeldung:
Die Methode "Range" für das Objekt "Worksheet" ist fehlgeschlagen

Da ich Deine Lösung in ein umfassenderes Makro einbinde,
habe ich das so germacht:

'Sub til()
Range("GLSeg1MC").EntireRow.Hidden = (Range("GUV") = 1 And Range("GLanzeigen") = 1 And Range("SegmentSumme") < 4)
'End Sub

Gibt es noch Ideen?
Vielen Dank auch noch für die schnellen Antworten

 

Hi

dann hast du den Code direkt in ein Tabellenblatt gelegt wo eben diese Bereiche nicht vorhanden sind.

der Code gehört in ein MODUL

oder in das Blatt wo eben diese Bereiche sind.
ansonsten gehört noch der Verweis auf das Blatt hinein.

z.B

Code:

 

Danke, das hat geholfen:

If Sheets("Input").Range("GUV").Value = 1 And Sheets("Input").Range("GLanzeigen").Value = 1 And Sheets("GuV").Range("SegmentSumme") < 4 Then Range("GLSeg1MC").EntireRow.Hidden = False Else Range("GLSeg1MC").EntireRow.Hidden = True

Beste Grüße