range(cells(),cells()) copy paste
15.08.2014 08:40:14
Daniel
Ich weiss, dass zu diesem Thema schon viel geschrieben wurde, trotzdem lässt sich (selbst nach stundenlangen Suchen) der folgende "Fehler" nicht beheben:
Ziel: Ich möchte aus einem Excel Sheet ("ThisWorlbook") drei verschiedenen Tabellen in ein neues Workbook ("ActiveWorkbook") hineinkopieren und dann ein pdf File erstellen.
Problem:
Sub ExcelToPDF()
'Variablen
Dim k, i As Integer 'zeigt an wo bzw. welcher Teil der Tabelle ins "erschaffene" Workbook _
hineinkopiert werden soll
'Neue Datei erstellen
Workbooks.Add
'Bereich in neue Datei kopieren
ThisWorkbook.Sheets("DNEL Results").Range("B3:G24").Copy Range("A3") 'Kommentar: funktionier _
problemlos
ThisWorkbook.Sheets("DNEL Results").Range(Sheets("DNEL Results").Cells(3, 2), Sheets("DNEL _
Results").Cells(60*i, 2)).Copy ActiveWorkbook.Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(60 * k, 1))
Fehleranzeige 1: "Anwendungs- oder objektorientierter Fehler"
'oder
ThisWorkbook.Sheets("DNEL Results").Range(Sheets("DNEL Results").Cells(3, 2), Sheets("DNEL _
Results").Cells(60*i, 2)).Copy
ActiveWorkbook.Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(60 * k, 1)).PasteSpecial _
xlPasteAll
Fehleranzeige 2:"Index ausserhalb des gültigen Bereichs": Beim Debuggen zeigt es den _
ThisWorkbook...-Teil an.
End Sub
Ich danke für Eure Hilfe,
Liebe Grüsse,
Daniel