Hallo liebes VBA-Forum,
aktuell habe ich folgendes Problem:
Ich habe eine .XLSM Datei mit mehreren Tabellenblättern. Hierbei soll nur ein spezielles Tabellenblatt mit dem Namen "KÜN V3_Tagesdatum" (so heißt es in der xlsm Datei) unter dem Ordnerpfad C:\temp\test\ unter dem Namen aus der ZELLE X1 abgespeichert werden. Hierzu habe ich folgenden Code, der auch funktioniert:
Sub Export_CSV_KÜN_V3()
'
Sheets("KÜN V3_Tagesdatum").Select
Sheets("KÜN V3_Tagesdatum").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\temp\test\" & Sheets("KÜN V3_Tagesdatum").Range("X1").Value & ".csv", FileFormat:=xlCSV, _
Local:=True
Saved = True
ActiveWindow.Close
End Sub
Problem: In der XLSM Datei befindet sich im Tabellenblatt "KÜN V3_Tagesdatum" eine Tabelle, die auch in der CSV Datei erhalten bleiben soll. Leider wird bei dem Makro dies nicht berücksichtigt, sodass alle Werte aus einer Zeile in einer Zelle mit Komma-Trennung in der CSV Datei abgespeichert werden. Allerdings soll die tabellarische Form in der CSV-Datei beibehalten werden.
Ich hoffe, ihr könnt mir helfen!
Viele Grüße,
Andre |