Spalten filtern per Makro
18.07.2022 16:21:57
Tobi
ich habe - dank der superfreundlichen Hilfe hier im Forum - ein Makro, dass die aktuelle Seite unserer Arbeitsmappe per CSV exportiert.
Der Code ist:
Sub Makro9()
Dim Pfad As String, Datei As String
Pfad = "Z:\offizielle Dokumente - Vorlagen\11 - Produktion\09 - Interne Produktion"
Datei = "\" & "export-test " & Format(Date, "YYYYMMDD") & ".csv"
ChDir Pfad
ActiveWorkbook.SaveAs FileName:=Pfad & Datei, FileFormat:=xlCSV
End Sub
Hatte es per Makrorekorder einmal probiert und das Ergebnis über den bisherigen Code eingefügt, allerdings werden trotzdem alle Zeilen exportiert..
mein Code(versuch) war:
Range("C1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$81").AutoFilter Field:=3, Criteria1:=">0", _
Operator:=xlAnd