Zeilen mehrfach ausblenden
16.12.2015 23:40:38
Sören
Ich bin zum ersten mal hier und habe eine Fragestellung an der ich nicht weiter komme. Ich hoffe Ihr könnt mir helfen. In einer excel-Datei möchte ich in einer Zelle z.B. "ja" eingeben und es sollen sich Zeilen in einem bestimmten Bereich ausblenden. Für eine Zelle mit einem Bereich (z.B. Zeile 12:17) funktioniert das auch aber das möchte ich 20 mal an verschiedenen Stellen durchführen. Hier das was bisher für eine Stelle funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("39:44")
Set varSchalter = ActiveSheet.Cells(3, 1)
If varSchalter.Value = "Digital" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value "Digital" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If
End Sub
LG Sören