kurze frage zum copy-befehl
05.06.2009 13:20:16
ms22
ich will einen gewissen zellbereich aus tabelle1 in tabelle2 kopieren und habe folgenden code in eine subfunktion geschrieben:
Sub test()
Dim wksquelle As Worksheet, wksziel As Worksheet, bereich As Range, leistung As String
Set wksquelle = Worksheets("Daten Tabelle IEC")
Set wksziel = Worksheets("Tabelle IEC")
With wksziel
leistung = .Range("H2").Value
Set bereich = wksquelle.Range("H2:V2")
For Each rng In bereich
If rng.Value = leistung Then
wksquelle.Range(Cells(10, rng.Column), Cells(56, rng.Column)).Copy
.Cells(8, 10).PasteSpecial Paste:=xlValues
End If
Next
End With
End Sub
die anwendung bringt dann einen laufzeitfehler 1004 der besagt:
"Die Methode "Range" für das Objekt "_worksheet" ist abgelaufen"
was mache ich falsch?
danke schon mal