Mit VBA Spalten ein- /ausblenden
23.10.2019 16:00:42
Stefan
ich bin gerade etwas am Verzweifeln.
Ausgangssituation:
Ich habe eine Excel Datei erstellt.(Spalte A:Z)
In der ich nun per VBA (ich bin absoluter Anfänger) bestimmte Spalten ein und ausblenden will.
Je nach dem was in Zelle B2 steht..
In Worten:
Wenn in B2 "Agenda" steht, dann zeige mir die Spalten A:M und T:X
Wenn in B2" PROTOKOLL" steht, dann zeige mir die Spalten A:M und N:R
Ich lade einen Dateiversuch mit hoch.
https://www.herber.de/bbs/user/132694.xlsx
Der VBA Code lautet bisher
Private Sub Worksheet_Change(ByVal Target As Range)
' Ist die Aktion überhaupt nötig (Änderung in "B2") ?
If Target.Address = "$B$2" Then
' Nimm den Wert des geänderten Bereiches
Select Case Target.Value
' Vergleiche mit ZAHL, nicht String
Case Agenda
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten n:r aus
Columns("n:r").EntireColumn.Hidden = True
Case Protokoll
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten t:x aus
Columns("t:x").EntireColumn.Hidden = True
End Select
' Setze den Cursor zurück auf "B2"
Target.Select
End If
End Sub
Sub M()
End Sub
Kann mir jemand helfen?
Anzeige