Makro: Wenn Zelle Wert dann Spalten ausblenden
08.02.2016 17:11:04
Herr
ist es möglich in unten aufgeführten Makro eine Zeilenabhängigkeit zu integrieren? Sprich das Ein- und Ausklappen der u.a. Spalten soll nur für die Zeilen 9-214 stattfinden. Alle anderen Zeilen bleiben von dem Ein-/Ausklappen unberührt?
Und wie müsste dann der unten stehende Makro verändert werden?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) = "C7" Then
Range("H:S").EntireColumn.Hidden = False
Select Case .Value
Case "", 1: Range("H:S").EntireColumn.Hidden = True
Case 2: Range("K:S").EntireColumn.Hidden = True
Case 3: Range("N:S").EntireColumn.Hidden = True
Case 4: Range("Q:S").EntireColumn.Hidden = True
Case Else
End Select
End If
If .Address(0, 0) = "F6" Then
Range("T:AB").EntireColumn.Hidden = False
Select Case .Value
Case "": Range ("T:AB").EntireColumn.Hidden = True
Case 1: Range("W:AB").EntireColumn.Hidden = True
Case 2: Range("Z:AB").EntireColumn.Hidden = True
Case Else
End Select
End If
If .Address(0, 0) = "F7" Then
Range("AC:AH").EntireColumn.Hidden = False
Select Case .Value
Case "": Range("AC:AH").EntireColumn.Hidden = True
Case 1: Range("AF:AH").EntireColumn.Hidden = True
Case Else
End Select
End if
End With
End Sub
Besten Dank im Voraus!
Anzeige