VBA - Zelleninhalte aus Quelltabelle in Zieltabellen kopieren

[HannesMW]

Hab jetzt mal den Code probiert den du mir geschickt hast und da tut sich irgendwie gar nichts bei mir.

Code:

Option Explicit

Sub TorNeu()
Dim i As Integer
Dim r As Long
Dim Quelle As Worksheet
Dim Ziel As String
On Error Resume Next
Set Quelle = Sheets("Measures")
   For i = 2 To Quelle.Cells(Rows.Count, "A").End(xlUp).Row
       Ziel = Left(Quelle.Cells(i, "G").Value, 12)
       r = Sheets(Ziel).Cells(Rows.Count, "C").End(xlUp).Row + 1
       Rows(i).Copy Sheets(Ziel).Rows(r)
Next

End Sub

Was mach ich falsch?

VG

[schauan]

Hallöchen,

weiß ich nicht. Bei mir fängt er in Zeile 101 mit dem Einfügen an.

[HannesMW]

hallo schauan,

das ist leider nicht das, was ich mir erhofft habe haha:)

Dir trotzdem ein dickes Danke. Falls du oder jemand noch eine Lösung für mein Problem hat, freue ich mich über jede Rückmeldung.

VG Hanno