den folgenden Code habe ich mit dem Makrorekorder aufgezeichnet und ein wenig geändert.
Es wird in der Zeile 2 (Überschriftenzeile) der Filter bis zur letzten belegten Spalte gesetzt, in Spalte 4 wird nach den "Nichtleeren" gefiltert.
Hier sollte ich es so haben, dass er nicht die Spalte 4 filtert sondern die Spalte, in der der Gegriff "Gesamt" steht, falls dieser Begriff überhaupt vorkommt.
Kann mir das bitte jemand einbauen?
Mein Code:
Option Explicit
Sub Filtersetzen()
Dim Ls As Long
Ls = Cells(2, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(2, Ls)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=""
Range("A3").Select
End Sub
Besten Dank und Servus, Walter