Ich möchte eine neue Excel-Datei mittels eines Makros generieren, in der Daten der aktuell geöffneten Excel-Datei eingefügt werden. Dazu muss ich auch auf ein ausgeblendetes Registerblatt "Nr. und Pos." zugreifen, das ständig einen Fehler verursacht. Der Source ist unten eingefügt. Bin über jede Hilfe dankbar.
Gruß Leif
Sub Upload()
Application.ScreenUpdating = False
Dim objWbNew As Workbook
Set objWbNew = Workbooks.Add
'Neue Mappe erstellen
With objWbNew
With .Sheets(1)
.Range("A1") = "Nr."
.Range("B1") = "Pos."
.Range("C1") = "Preis"
.Range("D1") = "Datum"
End With
'kopieren der erforderlichen Werte
ThisWorkbook.Activate
Sheets("Nr. und Pos.").Visible = True
Sheets("Nr. und Pos.").").Range("D7:E7").Select
Range(Selection, Selection.End(xlDown)).Copy
.Sheets(1).Range("A2").PasteSpecial xlValues
Sheets("Nr. und Pos.").").Visible = False
'Kopieren des Endpreises
ThisWorkbook.Activate
Sheets("Preis").Range("J15").Select
Range(Selection, Selection.End(xlDown)).Copy
.Sheets(1).Range("C2").PasteSpecial xlValues
'Kopieren des Liefertermin laut Ergebnis
ThisWorkbook.Activate
Sheets("Preis").Range("I15").Select
Range(Selection, Selection.End(xlDown)).Copy
.Sheets(1).Range("D2").PasteSpecial xlValues
'speichern
'.SaveAs Filename:="C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\upload. _
xlsm"
.SaveAs Filename:="C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\upload. _
xls"
End With
End Sub