Hallo
ich denke mit diesem Code hast du schon mal einen guten Anfang um deine Spalten in eine neue Mappe zu kopieren. Per InputBox wird der neue Dateiname abgefragt und die Datei als xlsx Datei gespeichert. Ich nehme an das die Daten im 1. Tabellenblatt liegen. Sonst must du das in der With Zeile ändern. Dort steht Worksheets(1) Und den sPfad bitte auf deinen Ordner abändern!
mfg Nobody
Const sPfad = "G:\VBA Forum\Test Ordner\"
Sub Spalten_kopieren()
Dim NewName As String
With ThisWorkbook.Worksheets(1)
'EingabeBox für neuen Dateinamen zum speichern
NewName = InputBox("Bitte neuen Dateinamen angeben")
If NewName = Empty Then Exit Sub
Workbooks.Add 'neues Mappe erstellen
.Columns("F").Copy ActiveWorkbook.Sheets(1).Columns(1)
.Columns("G").Copy ActiveWorkbook.Sheets(1).Columns(2)
.Columns("I").Copy ActiveWorkbook.Sheets(1).Columns(3)
.Columns("W").Copy ActiveWorkbook.Sheets(1).Columns(4)
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=sPfad & NewName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End With
End Sub
|