ich benötige ein Makro, das mir gewisse Spalten filtert (die gleiche Funktion wie Autofilter nur nicht nach Zeilen, sondern nach Spalten filtern).
Hat da jemand einen Lösungsvorschlag?
Viele Grüße
Simon
dim Zelle as range
for each Zelle in ActiveSheet.Usedrange.Rows(1)
Zelle.EntireColumn.Hidden = Zelle.Value "x"
Next
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range, strAdr As String
If Not Intersect(Target, [B4]) Is Nothing Then
If [B4].Value = "" Then
Cells.Columns.Hidden = False
Columns("A").Hidden = True
Else
Cells.Columns.Hidden = True
Columns("B:C").Hidden = False
With Rows(4)
Set rngZelle = .Find([B4].Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then strAdr = rngZelle.Address
While Not rngZelle Is Nothing
rngZelle.EntireColumn.Hidden = False
Set rngZelle = .FindNext(after:=rngZelle)
If rngZelle.Address = strAdr Then Set rngZelle = Nothing
Wend
End With
End If
End If
Set rngZelle = Nothing
End Sub
https://www.herber.de/bbs/user/127719.jpg