Hallo
Wie kann ich mit VBA ein Tabellenblatt als csv Datei ans gleiche Ort speichern wie Datei abgespeichert ist?
Irgenwie funktioniert mein Makro nicht?
Braucht es "Workbooks.Add xlWBATWorksheet" überhaupt?
Private Sub CommandButton7_Click()
Dim Dateiname As String
Dim strName As String
strName = Replace(ThisWorkbook.FullName, ".xlsm", ".csv", 1, -1, vbTextCompare)
Workbooks.Add xlWBATWorksheet
ThisWorkbook.Sheets("Tabelle_20").UsedRange.Copy
ActiveSheet.Cells(1, 1).PasteSpecial xlPasteValues
ActiveWorksheet.SaveAs Filename:=strName, FileFormat:=xlCSV
ActiveWorkbook.Close False
End Sub
Freue mich auf eure Hilfe.
Gruss
ch79
|