Zeilen bestimmen
22.01.2015 16:02:59
Otto
ich bin gerade dabei über eine Auswahl einer Zelle (H20) mit "Ja" oder "Nein", dass sich hier Zeilen einblenden oder bei "Nein" ausgeblendet werden.
Diese Zeilen sind: 71-82, 85, 121-123
In der unteren Formel schaff ich es nur Zeile 71 bis 82 auszubleben. Ich weiß leider nicht wie ich hier zusätzlich weitere Zeilen hinzufügen kann. Ich habe schon Suchfunktion verwendet und bis jetzt kein Erfolg gehabt. Endweder blendet dann sich alles aus und nicht wieder ein, oder es reagiert gar nicht.
Ich hoffe ihr könnt mir helfen :-)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("71:82")
Set varSchalter = ActiveSheet.Cells(20, 8)
If varSchalter.Value = "Ja" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value "Ja" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If
End Sub