Visual Basic Forum

AndyBrehme · Newbie Anmeldedatum: 19.02.2010 Beiträge: 1

Hallo,

mir wird folgender Fehler (laufzeitfehler 1004 Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden) angeziegt wenn der Quelltext an der hervorgehobenen Zeile angelangt ist. Warum?

Dim i_row_coc, i_column_no, i_column_coc, lfdnr_vcoc, lfdnr_coc As Integer
Dim i_row_vcoc As Long

i_row_coc = ActiveCell.Row
i_row_vcoc = i_row_coc
i_column_no = Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Column
lfdnr_coc = Range(Cells(i_row_coc, i_column_no), Cells(i_row_coc, i_column_no)).Value
i_column_coc = Cells.Find(What:="B", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Column

i_row_vcoc = Range(Cells(i_row_vcoc, i_column_coc), Cells(i_row_vcoc, i_column_coc)).End(xlUp).Row
lfdnr_vcoc = Range(Cells(i_row_vcoc, i_column_no), Cells(i_row_vcoc, i_column_no)).Value

Sheets("Blatt_vorlage").Copy After:="Blatt No." & lfdnr_vcoc
Sheets("Blatt_vorlage (2)").Name = "Blatt No." & lfdnr_coc

Vielen dank für die Hilfe

Gruß Andy
_________________