Spaleten ausblenden nach entsprechender Mehrfachauswahl

[cysu11]

Hi zusammen,

ich hoffe Euch allen geht es gut! :)

Ich habe folgendes Thema, in den Zellen E1 bis S1 habe ich Namen stehen
                                        in den Zellen E2 bis S2 die Mitarbeitergruppen, das sind Zahlen 1 bis 9, jeder Mitarbeiter ist einer Gruppe zugeordnet. 
Ich möchte per Knopfdruck, dass ein Fenster(Userform etc., Steuerelemt etc.) sich öffnet und der User dann diese Gruppen zur Auswahl hat, Mehrfachauswahl möglich. Je nach Auswahl, sollen dann die entsprechenden Spalten ein- bzw. ausgeblendet werden. Also wenn der User die Gruppen 1, 4 und 7 auswählt, sollen alle Spalten di in Zeile 2 die entsprechende Gruppe eingetragen haben, ausgeblendet werden, nach Auswahl aller gruppen, soll alles wieder eingeblendet werden.

Wie kann ich das am besten umsetzen, Userform oder gibt es doch was einfacheres?

Vielen Dank im Voraus
LG
Alexandra

[HKindler]

Hi,

wenn du Zeilen und Spalten tauschen würdest, könntest du den Autofilter (oder auch den Datenschnitt) verwenden...

[cysu11]

Hallo Helmut,

das geht leider nicht, aufgrund des weiteren Aufbau der Datei...

Vielen Dank
LG 
Alexandra

[Case]

Hallo Alexandra,  

nach diesem Prinzip:

  UF_UserForm_Spalten_Ausblenden_Einblenden_CEF.xlsb (Größe: 15,87 KB / Downloads: 4)

Code:

Option Explicit
Private Sub UserForm_Activate()
    ListBox1.List = Application.Transpose(Tabelle1.Range("E1:S2").Value)
End Sub
Private Sub ListBox1_Change()
    Tabelle1.Columns(ListBox1.ListIndex + 5).Hidden = ListBox1.Selected(ListBox1.ListIndex)
End Sub

[cysu11]

Hallo Case,

vielen Dank, werde ich die Tage gleich testen und melde mich wieder! 

LG
Alexandra

[RPP63]

Mal im Ernst!
Ich habe noch nie (und ich treibe mich schon ein paar Tage in Foren herum) eine dämlichere Antwort gesehen!
Du antwortest nach 16(!) Tagen und bietest gnädiger weise an, das mal "die Tage" zu testen?
Hast Du noch alle Kerzen im Leuchter?