Horizontal Filtern

Hallo zusammen
Ich habe ein Problem zum Horizontalen Filtern (ausblenden). Und zwar habe ich eine Mitarbeiterliste die über 12 Monate geht, wobei für jeden Mitarbeiter pro Monat eine eigene Spalte besteht, welche aus SAP exportiert ist. Die Reihenfolge der Spalten aus SAP sind nach Monaten geordnet, das heisst, es werden für jeden Mitarbeiter für jeden einzelnen Monat individuelle Spalten aufgeführt. Die Reihenfolge ist wie folgt: Mitarbeiter 1 (Jan); Mitarbeiter 2 (Jan); Mitarbeiter 2 (Jan), etc. Nun möchte ich aber gerne, dass ich alle horizontalen Spalten pro Mitarbeiter filtern (bzw. ausblenden), so dass ich dadurch eine Jahresübersicht über den Mitarbeiter erhalte: Mitarbeiter 1 (Jan); Mitarbeiter 1 (Feb); Mitarbeiter 1 (März); etc.
Die Filterfunktion sollte über das aus 3 Buchstaben bestehende Kürzel des Namens erfolgen (siehe Beispiel xls).
Herzlichen Dank für Eure Hilfe. Ich habe zur Veranschaulichung noch das xls angehängt. https://www.herber.de/bbs/user/104411.xlsx
Gruss,
Aleardo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SpaltenNachMitarbeiterAusblenden() Dim MaNameKurz As String Dim Spalten As Range Dim Zelle As Range Application.ScreenUpdating = False MaNameKurz = InputBox("MA-Kürzel eingeben", "MA-Jahresansicht") Set Spalten = ActiveSheet.Range(Cells(1, 2), Cells(1, ActiveSheet.Columns.Count)) Spalten.EntireColumn.Hidden = True For Each Zelle In Spalten If InStr(1, Zelle.Text, MaNameKurz, vbTextCompare) > 0 Then Zelle.EntireColumn.Hidden = False End If Next Application.ScreenUpdating = True End Sub

Sub ausblenden() Dim MaNameKurz As String Dim rngSpalte As Range Dim rngZeile As Range Dim Zelle As Range Cells.EntireColumn.Hidden = False Cells.EntireRow.Hidden = False Set rngSpalte = Cells(1, 1) Set rngZeile = Cells(1, 1) MaNameKurz = InputBox("MA-Kürzel eingeben", "MA-Jahresansicht") For Each Zelle In Range(Cells(1, 2), Cells(1, 1).End(xlToRight)) If Zelle.Value Like "*" & MaNameKurz & "*" Then Set rngSpalte = Union(rngSpalte, Zelle) Set rngZeile = Union(rngZeile, Zelle.EntireColumn.SpecialCells(xlCellTypeConstants). _ EntireRow) End If Next With ActiveSheet.UsedRange.Offset(1, 1) .EntireColumn.Hidden = True .EntireRow.Hidden = True End With rngSpalte.EntireColumn.Hidden = False rngZeile.EntireRow.Hidden = False End Sub

Hi
ein Filtern für Spalten gibt es in Excel nicht.
wenn du nur die Spalten eines Mitarbeiters sehen und die anderen ausblenden willst, gehe so vor:
1. füge eine über der Überschriftenzeile eine weiter Zeile ein (Zeile 1)
2. in diese Hilfszeile kommt ab Zelle B1 bis zum Tabellenende folgende Formel:
=WENN(ISTZAHL(SUCHEN($A$1;B2));"";FALSCH)
3. in die Zelle A1 kommt das Kürzel des gesuchten Mitarbeiters
jetzt steht in der Hilfszeile in den Spalten beim gesuchten Mitarbeiter der Text "" und bei den anderen Mitarbeitern der Wahrheitswert FALSCH.
4. markiere die Zeile 1 und schränke die Selektion auf die Wahrheitswerte ein, klicke hierzu:
START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE - FORMELN - WAHRHEITSWERTE
5. klicke jetzt den Menüpunkt
START - ZELLEN - FORMAT - SICHTBARKEIT - AUSBLENDEN & EINBLENDEN - SPALTEN AUSBLENDEN
eine andere Variante wäre, dass du die Tabelle nach den Namenskürzeln sortierst, so dass gleiche Namen direkt nebeneinander stehen.
auch hierzu fügst du in der Zeile 1 eine Hilfsszeile mit dieser formel ein , um das Namenskürzel zu extrahieren: =Teil(B2;8;99)
dann sortierst du die Liste nach der Zeile 1, um so zu sortieren, klicke im "Sortieren"-Dialog auf "Optionen" und lege fest, dass du Spalten sortieren willst.
die dritte Variante wäre, dass du die Tabelle transponierst (dh Zeilen und Spalten tauschst) um dann mit dem normalen Excel-Zeilenfilter arbeiten zu können.
hierzu kopierst du die Tabelle und fügst sie auf einem neuen Blatt mit der Option "Transponieren" ein.
diese Option wird dir im Kontextmenü zum einfügen als 4. Option angeboten.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

51 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Horizontal Filtern

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

51 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread