Hallo,
mit folgendem Code möchte ich aus einer Arbeitsmappe Ergebnisse in eine neue Arbeitsmappe einfügen.
Problem: Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs" tritt in Zeile 14 auf (nach Debuggen)
Worksheets("Sheet6").Name = "Upstream Results HHV"
Muss ich den Range in Worksheets("Sheet6").Name = "Upstream Results HHV" weiter einengen ?
Viele Grüße
mit folgendem Code möchte ich aus einer Arbeitsmappe Ergebnisse in eine neue Arbeitsmappe einfügen.
Problem: Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs" tritt in Zeile 14 auf (nach Debuggen)
Worksheets("Sheet6").Name = "Upstream Results HHV"
Visual Basic-Quellcode
- Sub InputExport_Click()
- Dim ghgName As String
- ghgName = ActiveWorkbook.Name
- Dim ghgExport As String
- Workbooks.Add
- ghgExport = ActiveWorkbook.Name
- ' Application.DisplayAlerts = False
- Worksheets.Add
- Worksheets.Add
- Worksheets.Add
- Worksheets.Add
- Worksheets.Add
- Worksheets("Sheet6").Name = "Upstream Results HHV"
- Worksheets("Sheet5").Name = "Lifecycle Results"
- Worksheets("Sheet4").Name = "LDV Summary"
- Worksheets("Sheet1").Name = "HDV Summary"
- Worksheets("Sheet2").Name = "Cost LDV"
- Worksheets("Sheet3").Name = "Cost HDV"
- Workbooks(ghgName).Activate
- Application.Goto Reference:=Worksheets("Upstream Results HHV").Range("A1:IV461")
- Selection.Copy
- Workbooks(ghgExport).Activate
- Application.Goto Reference:=Worksheets("Upstream Results HHV").Range("A1")
- Selection.PasteSpecial (xlPasteValues)
- Selection.PasteSpecial (xlPasteFormats)
- Selection.PasteSpecial (8)
- Application.Goto Reference:=Worksheets("Upstream Results HHV").Range("A1")
Muss ich den Range in Worksheets("Sheet6").Name = "Upstream Results HHV" weiter einengen ?
Viele Grüße
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „juliuscäsar“ ()