Wer kan helfen?

Ich möchte die Spaltenbreit automatisch mit VBA an das ergebnis einer bestimten Zelle anpassen.

Mit der Formel > Range("b13").Columns.EntireColumn.AutoFit < komme ich nicht weiter. Die Spalte wird auf breite mit den meisten Zeichen der Spalte B ausgedehnd. Hat jemand eine lösung für mein Problem?

Vielen Dank im voraus für eure Hilfe.

ich möchte in Spalte A alle "-", "x" und alle für den Aktuellen Monat zB. ab den 01.09.2021 Angezeigt bekomme.

Was ist an dieser Syntax falsch

   ActiveSheet.Range("$A$1:$G$3000").AutoFilter Field:=1, Criteria1:=Array("-", _

       "x"), Operator:=xlFilterValues, Criteria2:=Array(0, Month(Now) & "/1/2021")

Meine Formel zeigt alle "-", "x" und alle Daten ab Datum 01.01.2021. Siehe Filter Bild.

es solte nur im Sep. ein Häckchen sein.

Vielen Dank vorab für eure Hilfe.