Spalten dynamisch Ausblenden

[Hardraada]

Hallo zusammen,

ich benötige dann doch mal etwas Hilfe bei meinem Problem :).
Folgende Excel-Tabelle habe ich bisher erstellt um eine Art Skillmatrix aufzubauen.
Soweit so gut. In Spalte B sind meine Mitarbeiter aufgelistet und in den darauf folgenden Spalten sind die einzlenen Skills aufgelistet.
Der Aufbau daher, dass ich sowohl nach Mitarbeitern aber auch nach entsprechendem Skill filtern kann.

Jetzt würde ich es aber gerne noch hinbekommen, nach Themengebiete zu filtern. Das ist ja mit derm Standardfilter so erstmal nicht möglich. Meine erste Idee war, Makros aufzunehmen, in denen ich spalten ausblende. Diese Makros dann auf einen Button lege und somit filtere. Funktioniert im ersten Step sehr gut, hat aber einen riesen Haken. Ich kann dann nicht mehr dynamisch Skills hinzufügen, indem ich Spalten hinzufüge. Damit sind die Makros in der Form unbrauchbar geworden.

Meine frage ist jetzt wie ich mein Vorhaben realisieren kann. Am liebsten natürlich noch in einer Auswahl die ich vorher Tätige z.B. per Dropdown. Also ich Wähle "Themengebiet A" aus und alle anderen Themengebiete werden "eingeklappt" bzw. eben ausgeblendet.

Könnt Ihr mir da helfen?

Danke schonmal und beste Grüße

[Bast4i]

Hallo,

Du könntest die Bereiche gruppieren. Also z. B. Spalte F bis K markieren und unter Daten->Gliederung->gruppieren die Spalten zusammenfassen.
Damit kaannst Du die uninteressanten Spalten ausblenden.

In Deiner Musterdatei erscheint komischer Weise kein + bzw. - zum ein- bzw. ausblenden. Vielleicht funktioniert´s bei Dir.

Gruß
Sebastian

[snb]

Benütze immer Zelle A1

[Hardraada]

Grundsätzlich funktioniert das ... das + wird nicht angezeigt weil da eine recht kleine Spalte noch daneben steht.
Problem beim Gruppieren ist, dass nicht genau ersichtlich ist was ich da genau Gruppiere ... ich Gruppiere Spalten F-K und das + erscheint über der Spalte für das nächste Themengebiet. Das macht es etwas unübersichtlich. Ebenso, wenn viele Themengebiete Gruppiert und minimiert sind, habe ich lauter + die Über dem eigentlich falschen themengebieten.
Hier war die hoffnung das eleganter lösen zu können.

Aber danke schonmal :)

[Kuwer]

Hallo,

folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long
  Dim rngSkills As Range
  
  If Target.Address = "$B$10" Then
    Application.ScreenUpdating = False
    Columns.Hidden = False
    If Target.Value <> "" Then
      Set rngSkills = Range(Cells(13, 4), Cells(13, Columns.Count).End(xlToLeft).Offset(, 1)).SpecialCells(xlCellTypeBlanks)
      For i = 1 To rngSkills.Areas.Count Step 2
        Range(rngSkills.Areas(i).Offset(, -1), rngSkills.Areas(i + 1)).EntireColumn.Hidden = _
          rngSkills.Areas(i).Offset(, -1).Value <> Target.Value
      Next i
    End If
    Application.ScreenUpdating = True
  End If
End Sub

Bei Änderungen in der Zelle B10 greift der Code. Ist B10 leer, werden alle Spalten eingeblendet.

Gruß Uwe

[Hardraada]

Danke Kuwer! Genau so hab ich mir das vorgestellt!!!
Gibt es noch eine Möglichkeit das direkt auszuführen? Also jetzt ist es ja so, ich Trage dort einen Wert ein, klicke in eine andere Zelle und erst wenn ich wieder in die "Eingabezelle" klicke wird der "Filter" angewendet. Gibt es dafür einen Workaround?

Besten Dank aber schonmal!!

[EbyAS]

Hallo,
und nun noch eine Version mit VBA.

[shift-del]

Moin

Ich finde die Lösung von Jon sehr ansprechend:
https://www.excelcampus.com/vba/hide-unh...er-filter/