Ausblenden von Spalten in Excel basierend auf Zellenwert

Question

Ich möchte bestimmte Spalten in meinem Excel-Arbeitsblatt ("Vorlagenkonto") basierend auf einem Wert aus einer Auswahlliste, die in Zelle AC5 ausgewählt ist, ausblenden.

Die Logik ist wie folgt:

1) Ist die Auswahlliste Wert in Zelle AC5 ist „Energie und Ressourcen“, dann würde ich die Spalten BJ mögen: BO versteckt werden.

2) Ist die Auswahlliste Wert in Zelle AC5 ist „Verteidigung“, dann würde ich die Spalten BP mag: CA versteckt werden und so weiter ..

3) Else wenn AC5 enthält keine der Auswahllistenwert in AC5 dann nichts verstecken

Der Code, den ich versuchte, sieht so aus, aber es funktioniert nicht. Kann mir bitte jemand etwas mitteilen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim cellvalue As String 
Dim ws As Worksheet 
Set ws = Sheet("Template account") 

If cellvalue Like "*Energy and Resources*" Then 
Columns("BJ:BO").EntireColumn.Hidden = True 
Else 
If cellvalue Like "*Defence*" Then 
Columns("BP:CA").EntireColumn.Hidden = True 
Else 
Exit Sub 
End If 
End Sub 

Answer 1

Platzieren Sie Ihren Code unter Workbook_SheetChange. Derzeit wird das Ereignis, unter dem Sie sich befinden, nur ausgelöst, wenn Sie eine andere Zelle auswählen und nicht, wenn tatsächliche Änderungen in Zellen stattfinden. Auch als @BruceWayne besagt, dass Sie nie den Wert der Zelle AC5 an Ihre cellvalue Variable übergeben. Code mit einigen Änderungen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    If Sh.Name = "Template account" And Target.Address = "$AC:$5" Then 
     Application.EnableEvents = False 
     Dim cellvalue As String 
     cellvalue = Target.Value2 

     If cellvalue Like "*Energy and Resources*" Then 
      Sh.Columns("BJ:BO").EntireColumn.Hidden = True 
     ElseIf cellvalue Like "*Defence*" Then 
      Sh.Columns("BP:CA").EntireColumn.Hidden = True 
     Else 
      Sh.Columns("BJ:BO").EntireColumn.Hidden = False 
      Sh.Columns("BP:CA").EntireColumn.Hidden = False 
     End If 
     Application.EnableEvents = False 
    End If 
End Sub 

Eine Überprüfung hinzugefügt, um zu bestätigen, dass sich Änderungen auf dem richtigen Blatt und der richtigen Zelle befinden. Deaktivierte Ereignisse, während der Code ausgeführt wird, sodass das Ausblenden der Spalten das Ereignis nicht erneut auslöst. Am Ende aktiviert. Hinzugefügt, die Spalten wieder auf dem Else zeigend. Habe nicht getestet.

Answer 2

eine Änderung in einem Zellenwert erkennen Sie Worksheet_Change() Ereignishandler

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address(False, False) = "AC5" Then '<-- check for changed cell to be in AC5 
     Select Case Target.Value '<-- act correspondingly to changed cell value 
      Case "Energy and Resources" 
       Columns("BJ:BO").EntireColumn.Hidden = True 
      Case "Defence" 
       Columns("BP:CA").EntireColumn.Hidden = True 
      Case "...." 
       ' go on with other cases 
     End Select 
    End If 
End Sub 

sollten Sie wollen Spalten wieder einblenden BJ verwenden müssen: BO und BP: CA, wenn weder "Energy and Resources" noch "Defense" ist der Wert der geänderten Pickup-Zelle, dann ändert sich der Code leicht im letzten Teil der Select Case Block

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address(False, False) = "AC5" Then '<-- check for changed cell to be in AC5 
     Select Case Target.Value '<-- act correspondingly to changed cell value 
      Case "Energy and Resources" 
       Columns("BJ:BO").EntireColumn.Hidden = True 
      Case "Defence" 
       Columns("BP:CA").EntireColumn.Hidden = True 
      Case Else 
       Union(Columns("BJ:BO"), Columns("BP:CA")).EntireColumn.Hidden = False 
     End Select 
    End If 
End Sub