Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Unterschiedliche Spalten ausblenden mit Bedingung

Unterschiedliche Spalten ausblenden mit Bedingung
07.08.2019 10:41:46
Igor
Hallo Gemeinschaft
Die bisherigen Beiträge zu diesem oder ähnlichen Themen haben mich nicht weiter gebracht. Vielleicht kann mir noch einmal jemand detailliert helfen.
Ausgangslage:
Abhängig von Wert in A8 will ich unterschiedliche Anzahl Spalten ausblenden:
Wert in A8 = 1 dann Spalten B:H ausblenden
Wert in A8 = 2 dann Spalten B:G ausblenden
Wert in A8 = 3 dann Spalten B:F ausblenden
...
Wert in A8 = 7 dann Spalte B:B ausblenden
Wert in A8 = 8 dann keine Spalte ausblenden
Musterdatei:
https://www.herber.de/bbs/user/131311.xlsx
In VBA bin ich unerfahren.
Beste Grüsse
Igor
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterschiedliche Spalten ausblenden mit Bedingung
07.08.2019 10:54:46
Matthias
Hallo
Ins Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A8")) Is Nothing Then
Auswahl
End If
End Sub
In ein Modul z.B. Modul1
Sub Auswahl()
Cells.EntireColumn.Hidden = False
Select Case Range("A8")
Case Is = 1
Columns("B:H").EntireColumn.Hidden = True
Case Is = 2
Columns("B:G").EntireColumn.Hidden = True
Case Is = 3
Columns("B:F").EntireColumn.Hidden = True
Case Is = 4
Columns("B:E").EntireColumn.Hidden = True
Case Is = 5
Columns("B:D").EntireColumn.Hidden = True
Case Is = 6
Columns("B:C").EntireColumn.Hidden = True
Case Is = 7
Columns("B:B").EntireColumn.Hidden = True
End Select
End Sub
... und als xlsm abspeichern!
Gruß Matthias
Anzeige
AW: Unterschiedliche Spalten ausblenden mit Bedingung
07.08.2019 11:16:10
Igor
Hallo Matthias
Vielen Dank für den Code.
Das funktioniert einwandfrei.
Beste Grüsse
Igor

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige