Clever-Excel-Forum

Seiten: 1 2

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

Hallöchen,

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

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

Seiten: 1 2

HannesMW

schauan

HannesMW