Workbooknamen als txt abspeichern
Burghard
ich bräuchte mal Hilfe. Ich benötige ein Makro, dass nicht den Blattnamen abspeichert (siehe unten), sondern den Namen des Workbooks und zwar nicht im xls-Format, sondern im txt-Format (mit Tabs).
Hilfe wäre nett.
Schönen Gruß (und frohe Ostern!)
Burghard
Public Sub Blatt_ohneDialog_Speichern()
Dim Fn$, Blatt$
Const xlTextWindows = 20
Blatt$ = "Tabelle1"
Fn$ = ActiveWorkbook.Path & "\" & Blatt$
Worksheets(Blatt$).SaveAs Filename:=Fn$, FileFormat:=xlTextWindows
End Sub
Anzeige