Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Nach Zeilen und Spalten filtern





Frage

Hallo, Zusammen! Ich habe eine recht komplexe Tabelle, die ich für verschiedene Zwecke sowohl in der Waagerechten als auch in der Horizontalen reduzieren möchte. Zur Zeit nutze ich den AutoFilter um die Zeilen auszublenden und für die Spalten mache ich das "manuell" über Spalte ausblenden. Gibt es für die Spalten auch so etwas wie den Autofilter? Hat jemand einen anderen Lösungsansatz für mich? Schon ´mal: Vielen Dank fürs Mitdenken! Marcus

Antwort 1 von michael123

hi alle

beispiel eines spaltenfilters

gruss michael

Option Explicit
Sub makro01()
Application.EnableEvents = False
Dim LastCell
Dim spaltende, zeilende
Dim zaehler1, zaehler2, zaehler3, wert01
If Range("A1:IV1").EntireColumn.Hidden = True Then
Range("A1:IV1").EntireColumn.Hidden = False
End
End If
Range("A1:IV1").EntireColumn.Hidden = False
wert01 = InputBox("Kreterium")
If wert01 = "" Then End
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
spaltende = LastCell.Column
zeilende = LastCell.Row
For zaehler1 = 1 To spaltende
For zaehler2 = 1 To zeilende
If Cells(zaehler2, zaehler1) = wert01 Then
zaehler3 = 1
zaehler2 = zeilende
End If
Next zaehler2
If zaehler3 = 0 Then
Cells(1, zaehler1).EntireColumn.Hidden = True
End If
zaehler3 = 0
Next zaehler1
Application.EnableEvents = True
End Sub

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: