Makro if Bedingung mit mehreren bedingungen

[DeLaGhetto]

Hallo zusammen,
folgendes Problem:

Über folgende Formel

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Rows(5).EntireRow.Hidden = False = (Cells(4, 4) = "TEST1")
    End If
End Sub

blende ich Zeilen in Excel ein, wenn in derZelle D4 das Wort TEST1 steht.
Wie kriege ich das selbe Makro dazu das gleiche zu machen, nur wenn in der selben Zelle das Wort TEST2 steht?
Also im grunde genommen sowas wie

Code:

        Rows(5).EntireRow.Hidden = False = (Cells(4, 4) = "TEST1" or "TEST2" or "TEST3")

steht?

[Case]

Hallo, :19:

probiere es mal so: :21:

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Select Case Target.Value
            Case "TEST1", "TEST2", "TEST3"
                Rows(5).EntireRow.Hidden = False
        End Select
    End If
End Sub

[DeLaGhetto]

Hallo,

theoretisch richtig. Vielen Dank schonmal dafür.
Jetzt ist es aber so, dass mir die gewünschte Zeile nicht mehr automatisch ausgeblendet wird, wenn in D4 ein anderer Wert steht als TEST1, TEST2 oder TEST3.
Wenn du das noch mit in die Formel reinschreiben könntest, dann bist du für heute mein Held

Danke dir schon im Voraus.

[Case]

Hallo, :19:

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Select Case Target.Value
            Case "TEST1", "TEST2", "TEST3"
                Rows(5).EntireRow.Hidden = False
            Case Else
                Rows(5).EntireRow.Hidden = True
        End Select
    End If
End Sub

[Matthias84]

Hallo,

probiere mal:

Code:

With Cells(4,4)
Rows(5).EntireRow.Hidden = Not (.Value="TEST1" or .Value="TEST2" or .Value="TEST3")
End with

-----Ungetestet----

[DeLaGhetto]

Jetzt bist du mein Held.

Vielen Danke

[Case]

Hallo, :19:

schau dir auch mal den Code von Matthias an. :21: