Hallo
Wieso listet es mir in der csv Datei die Werte aus der gesamten Tabelle der Exceldatei in Spalte A untereinander? Ich will das die Werte der Exceldatei in den jeweilige Zeilen bleiben und nur das Tabellenblatt als csv speichern.
Private Sub CommandButton7_Click()
Dim Dateiname As String
Dim strName As String
Dim Pfad As String
strName = Replace(ThisWorkbook.FullName, ".xlsm", ".csv", 1, -1, vbTextCompare)
ActiveSheet.SaveAs Filename:=strName, FileFormat:=xlCSV
ActiveWorkbook.Close False
End Sub
Freue mich auf eure Hilfe
Gruss
|