Spalten ausblenden mit Dropdown bzw. Kombinationsf

Public Sub Worksheet_Change(ByVal Target As Range) If Worksheets("Alle Gebäude").Range("A9").Value = 2 Then Worksheets("Alle Gebäude").Columns("F:H").Hidden = True Else Worksheets("Alle Gebäude").Columns("F:H").Hidden = False End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Rico,
das Ändern der Auswahl in einer Formularsteuerelemente-Kombobox löst nicht das Change-Ereignis im Tabellenblatt aus.
Alternativen:
1. Du weist der Kombobox ein Makro zu, das nach jeder Wertauswahl ausgeführt wird.

'Makro in einem allgemeinen Modul
Sub GebaeudeEin_Ausblenden()
Dim Spalte As Long, bolHidden As Boolean
Application.ScreenUpdating = False
With Worksheets("Alle Gebäude")
For Spalte = 5 To 18 'Spalte E bis R
bolHidden = True
Select Case Spalte
Case 9, 14, 15, 16 'Spalten mit Ist-Jahr
bolHidden = False
Case Else
Select Case .Range("$A$9").Value
Case 1 '"Alle_aus"
Case 2 '"Büro"
Select Case Spalte
Case 5, 10:   bolHidden = False
End Select
Case 3 '"Produktion"
Select Case Spalte
Case 6, 11:   bolHidden = False
End Select
Case 4 '"Lager"
Select Case Spalte
Case 7, 12:   bolHidden = False
End Select
Case 5 '"Labor"
Select Case Spalte
Case 8, 13:   bolHidden = False
End Select
Case 6 '"Alle_ein"
.Columns.Hidden = False
Exit For
End Select
End Select
.Columns(Spalte).Hidden = bolHidden
Next Spalte
End With
Application.ScreenUpdating = True
End Sub

2. Du benutzt die Datenüberprüfung mit Liste und Dropdown-Auswahl in Zelle A9
Dann kannst du das Change-Ereignis-Makro benutzen.

Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$9" Then
Application.ScreenUpdating = False
With Worksheets("Alle Gebäude")
For Spalte = 5 To 18 'Spalte E bis R
bolHidden = True
Select Case Spalte
Case 9, 14, 15, 16 'Spalten mit Ist-Jahr
bolHidden = False
Case Else
Select Case .Range("$A$9").Value
Case "Alle_aus"
Case "Büro"
Select Case Spalte
Case 5, 10:   bolHidden = False
End Select
Case "Produktion"
Select Case Spalte
Case 6, 11:   bolHidden = False
End Select
Case "Lager"
Select Case Spalte
Case 7, 12:   bolHidden = False
End Select
Case "Labor"
Select Case Spalte
Case 8, 13:   bolHidden = False
End Select
Case "Alle_ein"
.Columns.Hidden = False
Exit For
End Select
End Select
.Columns(Spalte).Hidden = bolHidden
Next Spalte
End With
Application.ScreenUpdating = True
End If
End Sub

Wenn man viele Kriterien vergleichen muss, dann geht dies mit Select Case meist besser/übersichtlicher als mit IF-Anweisungen.
Außerdem kann man hier mit einer Schleife die Spalten abarbeiten und abhängig von den Kriterien ein-/Ausblenden.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden mit Dropdown bzw. Kombinationsf

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden mit Dropdown bzw. Kombinationsf

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread