Die Spalten A bis M sollen als csv exportiert werden der Dateiname soll aus zellen besten und zwar K2_L2_M2.csv
ich hoffe das ist möglich
Sub t()
Dim strDatei As String
With ThisWorkbook.Worksheets("Tabelle1")
strDatei = "C:\Pfad\" & .Range("K2") & "_" & .Range("L2") & "_" & .Range("M2") & ".csv"
End With
ThisWorkbook.SaveAs Filename:=strDatei, FileFormat:=xlCSVMSDOS, CreateBackup:=False
End Sub
cu
ThisWorkbook.SaveAs Filename:=strDatei, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Bitte gerne auch ein wenig selber recherchieren, denn als nächstes wird wahrscheinlich das Dezimaltrennzeichen Probleme bereiten. Bereits in den Quelldaten (Spalte D) gibt es Inkonsistenzen (Zahlen als Text) und zudem ist Local=True für einen länderübergreifenden Datenaustausch nicht geeignet.