Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ausgeblendetes Blatt gibt Fehler im VBA Code

Ausgeblendetes Blatt gibt Fehler im VBA Code
Erik
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ausgeblendetes Blatt gibt Fehler im VBA Code
19.12.2011 10:28:07
Rudi
Hallo,
versuchs mal so:
Sub Upload()
Application.ScreenUpdating = False
Dim objWbNew As Workbook
Set objWbNew = Workbooks.Add
'Neue Mappe erstellen
With objWbNew.Sheets(1)
.Range("A1") = "Nr."
.Range("B1") = "Pos."
.Range("C1") = "Preis"
.Range("D1") = "Datum"
End With
'kopieren der erforderlichen Werte
With ThisWorkbook
With .Sheets("Nr. und Pos.")
.Range(.Range("D7"), .Range("D7").End(xlDown)).Resize(, 2).Copy
objWbNew.Sheets(1).Range("A2").PasteSpecial xlValues
End With
'Kopieren des Endpreises
With .Sheets("Preis")
.Range(.Range("J15"), .Range("J15").End(xlDown)).Copy
objWbNew.Sheets(1).Range("C2").PasteSpecial xlValues
'Kopieren des Liefertermin laut Ergebnis
.Range(.Range("I15"), .Range("I15").End(xlDown)).Copy
objWbNew.Sheets(1).Range("D2").PasteSpecial xlValues
End With
End With
'speichern
'.SaveAs Filename:="C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\upload. _
_
xlsm"
objWbNew.SaveAs Filename:="C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\ _
upload.xls "
End Sub

Gruß
Rudi
Anzeige
AW: Ausgeblendetes Blatt gibt Fehler im VBA Code
19.12.2011 10:37:37
Erik
Tausend Dank! Es funktioniert :-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige