title image


Smiley Re: Welche Spalte wurde gefiltert
Hallo,



eine Möglichkeit:



Sub Autofilter_Spalte()

Dim varSpalte As Integer, s As Integer, Addr As String

If ActiveSheet.AutoFilterMode = True Then

On Error Resume Next

For s = 1 To ActiveSheet.AutoFilter.Filters.Count

If ActiveSheet.AutoFilter.Filters(s).On Then

Addr = Addr & Cells(1, s).Address(0, 0) & ","

End If

Next

End If

Addr = Left(Addr, Len(Addr) - 1)

Range(Addr).Select

End Sub





Gruß Manu

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: