Es wird eine .TXT Datei aus einem Tabellenblatt gespeichert.
Nun soll die Datei aber im Verzeichnis der Arbeitsmappe liegen.
Durch was muss ich -> ersetzen?
Sub SaveSheets()
Sheets("Kopfdatei").Select
Dim sPath As String, sFile As String
Dim iSheet As String
ActiveSheet.Copy
-> sPath = Application.DefaultFilePath & "\"
sFile = Range("B1")
iSheet = ("Kopf ")
ActiveWorkbook.SaveAs sPath & iSheet & sFile, FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close False
MsgBox "Das Blatt wurde unter " _
& sPath & iSheet & sFile & " gespeichert!"
End Sub
Bolli