Hallo Zusammen,
ich möchte gern einen Teil eines Filterkriteriums das über eine Msg-Box ausgwählt wird, anschließend in den Dateinamen der Ausgabe-Datei hinterlegen. Für das "WWT" werden 3 Ziffern eingegeben und soll im Dateinamen übernommen werden. Hier der Code
Dim Filter As String
Filter = CStr(InputBox("Filterkriterium: <=WWT", "Filterkriterium erfassen", "<="))
ActiveSheet.Range("A:AO").autofilter Field:=7, Criteria1:=Filter
Dann später im Makro
Open "...PFAD\ek_2_Filterkriterium.txt" For Output As #1
Print #1, lstrInhalt;
Close
Kann hier jemand helfen
Gruß Ralf