Probleme mit .Copy Destination
26.04.2005 14:30:09
Nick
ich habe ein kleines Problem mit ".Copy Destination". Aber erstmal ein kleiner Auszug aus meinem Code:
...
[Ausgangspunkt ist Tabelle111]
Output = ActiveCell.Row
Set TargetRange = Worksheets("Tabelle111").Range("A" & Output)
Worksheets("Tabelle222").Activate
Range(Cells(Zeile.Row, 1), Cells(Zeile.Row, 8)).Copy Destination:=TargetRange
Worksheets("Tabelle111").Activate
...
Wenn ich es so mache, dann funkioniert das Makro auch einwandfrei so wie ich es mir vorstelle. Allerdings finde ich die Lösung mit dem Sprung zwischen den beiden Tabellen (von 111 auf 222 und dann wieder auf 111) sehr umständlich. Also habe ich mir folgende, elegantere Lösung überlegt:
...
Output = ActiveCell.Row
Set TargetRange = Worksheets("Tabelle111").Range("A" & Output)
Worksheets("Tabelle222").Range(Cells(Zeile.Row, 1), Cells(Zeile.Row, 8)).Copy Destination:=TargetRange
...
Allerdings kommt bei dieser Variante "Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler".
Weiß jemand wo der Fehler genau liegt und kann mir da weiterzuhelfen bzw. hat jemand einen konkreten Lösungsvorschlag? Danke schon mal im voraus!!