ich habe folgendes Makro:
'-------- Filter setzen ----------------
Private Sub CommandButton2_Click()
Dim SpNr
Range("B5").Select
SpNr = Cells(5, Columns.Count).End(xlToLeft).Column
If Not ActiveSheet.AutoFilterMode Then
Range("B5" & SpNr).AutoFilter
End If
Exit Sub
leider klappt es nicht, ich möchte die ermittelte Spalte für
Filter übernehmen.
mfg Walli