Filter setzen
02.08.2017 09:49:17
kurt
ich habe dieses Makro:
Public Sub Filter()
Dim letztespalte
letztespalte = ActiveSheet.Cells(1, 256).End(xlToLeft).Column
ActiveSheet.Range("A1").Select
ActiveSheet.Range("A1" & letztespalte).Select
Selection.AutoFilter
Range("B1").Select
End Sub
mfg
kurt pa