Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Filterkriterium im Dateinamen der Ausgabedatei

Betrifft: Filterkriterium im Dateinamen der Ausgabedatei von: Ralf Zenker
Geschrieben am: 04.10.2007 13:40:33

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

  

Betrifft: zu von: zu
Geschrieben am: 05.10.2007 16:05:08

zu


 

Beiträge aus den Excel-Beispielen zum Thema "Filterkriterium im Dateinamen der Ausgabedatei"