ich möchte aus einer Excel-Datei heraus eine neue Excel-Datei erstellen. Das klappt auch soweit, hier das Makro
Sub Datei_neu()
Dim intAbfrageWert As Integer
Dim strDateiName As String
intAbfrageWert = MsgBox(" Wollen Sie eine Datei in dem Pfad " & ActiveWorkbook.Path & " _
erstellen?", _
vbYesNo + vbQuestion, "Datei erstellen", "", 0)
If intAbfrageWert = 6 Then
strDateiName = InputBox("Geben Sie einen Dateinamen ein", "Dateiname")
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & strDateiName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Else
MsgBox "Vorgang abgebrochen"
End If
End Sub
Nun möchte ich aber, aus jedem der Sheets der aktuellen Datei (bis auf das Erste) die Spalten, A,B,C,H in das neueWorkbook in die Spalten A,B,C,D einfügen.
Wie kann ich das machen? Wie kann ich aus dem aktuellen Workbook auf die Sheet-Attribute (wie Namen, Spalten) etc. des neuen Workbooks zugreifen zugreifen? Muss das Workbook dazu geöffnet sein?
Gruß!