wenn wirklich heute noch jemand hier ist und mein Weihnachtsprojekt retten will ;-)
Hab einen code den ich ein bisschen abändern will, und das übersteigt meine Fähigkeiten...was nicht so schwer ist
Er soll den Inhalt der Zellen F4:F295 als Textfile speichern
am besten mit dem Namen in "F3" Ist ein Textfile aber endet mit ".SET" statt ".TXT"
meine setWorkRng aus der Internet Recherche haut so nicht hin
es kann auch immer die gleiche file lokation sein.
Bitte, Danke,
Johannes
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
'xTitleId = "Export Setlile Range"
'Set WorkRng = Application.Selection
'Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
'f4:F295
Set WorkRng = Range(Cells(4, 6), Cells(LastRow, 6))
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub