Filtern von Spalten und nicht Zeilen

[MT1986]

Hallo zusammen 
Gibt es eine Möglichkeit Spalten zu filtern? Bei der "normalen" Filter Funktion werden beim Auswählen ja die nicht betroffenen Zeilen "ausgeblendet" und das möchte ich für Spalten haben.
Klingt irgendwie total einfach, aber ich finde die Funktion nicht 

Ich habe in Zeile 1 Lieferanten stehen und möchte, dass nur der Lieferant "a" ausgewählt ist und alle Spalten der anderen Lieferanten ausgeblendet werden (also es soll nur Spalte B, N und U eingeblendet bleiben und die anderen ausgeblendet werden, außer natürlich Spalte A weil ich danach Filtern möchte)
  240712 Filtern nach Spalten und nicht Zeilen.xlsx (Größe: 8,88 KB / Downloads: 6)

Schöne Grüße, Michael

[Elex]

Spalten nur per VBA.

[Sigi.21]

Hallo Michael,

du kannst die Tabelle mit MTRANS drehen und dann filtern. (s. Mappe)

Gruß Sigi

[Kuwer]

Hallo Michael,

per VBA z.B. so (Folgender Code kommt in das schon vorhandene VBA-Modul des Tabellenblatts):

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim rngC As Range
  Dim strS As String
  If Target.Address = "$A$1" Then
    Cancel = True
    strS = InputBox("Suchen nach:")
    Application.ScreenUpdating = False
    If Len(strS) Then
      For Each rngC In Cells(1).CurrentRegion.Offset(0, 1).Rows(1).Cells
        rngC.EntireColumn.Hidden = rngC.Value <> strS
      Next rngC
    Else
      Cells(1).CurrentRegion.Offset(0, 1).EntireColumn.Hidden = False
    End If
  End If
End Sub

Per Doppelklick aud die Zelle A1 wird es gestartet.

Gruß, Uwe