Hallo zusammen,
ich habe eine Execl Datei mit 2 Arbeitsblättern ("QA Validation" Und "CSR Validation").
Wenn im Blatt "QA VAlidation" Zelle C7 nicht leer ist und der eingetragene Wert ungleich "no" ist möchte ich die Zeilen 10-27 komplett ausblenden.
Das bekomme ich hin mit:
Private Sub Worksheet_Change(ByVal Target As Range)
'prüfen ob Zelle C7 leer
If Not Intersect(Target, Range("C7")) Is Nothing Then
'Zeilen einblenden
Cells.EntireRow.Hidden = False
'prüfen ob text gleich no
If Range("C7").Value <> "no" Then
Rows("10:27").EntireRow.Hidden = True
End If
End If
End Sub
Leider bleiben dann die Zeilen auch ausgeblendet, wenn die Zelle leer ist.
Zusätzlich würde ich gerne, wenn C7 = "no" ist prüfen, ob in Blatt "CA Validation" Zelle C14 ein bestimmeter Wert ist und wenn dies = "yes" ist die Zeilen 17 bis 27 ausblenden.
Der nächste Schritt wäre dann im Blatt "CSR Validation" auszuführen. Nämlich wenn Zelle C18 nicht leer und der eingetragene Wert "yes" ist möchte ich die Zeilen 21--31 komplett ausblenden.
Kann mir hier jemand helfen?
Viele Grüße
Sabine
|