|
Hallo zusammen,
ich möchte einen Teil einer Excel-Datei als txt exportieren. Dazu habe ich im Internet folgenden Code gefunden:
Sub ExportRangetoFile()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "ExportRangetoFile"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
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
Dieser Code funktioniert auch, solange sich in den zu exportierenden Zellen keine Formeln befinden. Ich wollte dieses Problem beheben, indem ich statt "wb.Worksheets(1).Paste" "wb.Worksheets(1).PasteSpecial Paste:=xlPasteValues" verwende. Leider funktioniert dies nicht und es folgt ein Error.
Kann es sein, dass man xlPasteValues nur bei einem Bereich (Range) verwenden kann?
Habt ihr eine Idee, wie ich dieses Problem beheben könnte?
Ich nutze Windows 10 und Excel Professional Plus 2019.
Vielen Dank!
Gruß Dennis
|