Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Makro if Bedingung mit mehreren bedingungen
Normale Version: Makro if Bedingung mit mehreren bedingungen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

DeLaGhetto

29.10.2018, 10:29
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

29.10.2018, 10:38
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

29.10.2018, 10:44
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 Smile

Danke dir schon im Voraus.

Case

29.10.2018, 10:52
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

29.10.2018, 10:53
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

29.10.2018, 10:53
Jetzt bist du mein Held.

Vielen Danke Smile

Case

29.10.2018, 11:04
Hallo, :19:

schau dir auch mal den Code von Matthias an. :21:
Clever-Excel-Forum > Office-Anwendungen > Excel > Makro if Bedingung mit mehreren bedingungen