Hallo Frank,
Genau so denke ich mir das.
upss, das hatte ich nun nicht erwartet. Meine Tabelle sollte
aus dir weitere Informationen herauslocken damit ich das Problem
überhaupt richtig verstehen kann.
Am Code sehe ich „genau so“ ist gar nicht genau so 
Du kopierst aus einem fremden Blatt.
Übrigens ist dein Code gefährlich für deine Daten.
Schneller als gedacht, grad beim Testen, ist das grad aktive
Blatt nicht das was es sein soll.
Nachstehend habe ich zwei Codes. Der zweite ist wie der erste
nur ist er gedacht wenn du im längeren Code Sheets(„Projektplan“)
mehrfach benutzt, dann nimmste wksP dafür.
Beachte unbedingt den Punkt vor Cells, Range, Row.
Mit Punkt davor bezieht sich auf das Blatt der With-Schleife.
Ohne Punkt auf das grad aktive Blatt.
Aber irgendwie will das ganze nicht so ganz.
Tja nun, haste den Code hier manuell reingeschrieben? Laß das,
dadurch entstehen dann solche Fehler die andere irritieren.
hast du den Code aus dem Editor kopiert so ist schon klar
warum er gar nicht funktionieren kann.
Zumindest wenn du wie es sich IMMER gehört Option
Explicit benutzt hätte dir der Debugger schon eine Fehlerstelle
gezeigt/markiert. Wenn es nur eine ist, hab den Code noch nicht
genau peprüft.
Mit x1Down kann der Code nix anfangen. Es heißt xlDown.
Je nach Schriftart, Schriftgröße und Augenfähigkeit sind
so Fehler verteufelt schwer zu entdecken.
Ändere da halt die Eins in L. Wenn es dann nicht funktioniert
so lade mal eine Beispielmappe hoch mit file-upload
s. FAQ:2606 und erklär nochmal anhand der Mappe wo du klicken
willst und was genau dann wo geschehen soll.
U.v.m.
Gruß
Reinhard
Option Explicit
Sub EasyClip()
Dim lngRow As Long, A As Long
With Worksheets(„Tabelle1“)
lngRow = .Cells(Rows.Count, „A“).End(xlUp).Row
Application.ScreenUpdating = False
For A = lngRow To 1 Step -1
If .Cells(A, 1) = „Easy Clip Vertonung“ Then
Sheets(„Projektplan“).Range(„A1:NU1“).Copy
.Rows(Cells(A, 1).Row).Insert Shift:=x1Down
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Sub EasyClip()
Dim lngRow As Long, A As Long, wksP As Worksheet
Set wksP = Sheets(„Projektplan“)
With Worksheets(„Tabelle1“)
lngRow = .Cells(Rows.Count, „A“).End(xlUp).Row
Application.ScreenUpdating = False
For A = lngRow To 1 Step -1
If .Cells(A, 1) = „Easy Clip Vertonung“ Then
wksP.Range(„A1:NU1“).Copy
.Rows(Cells(A, 1).Row).Insert Shift:=x1Down
End If
Next
End With
Application.ScreenUpdating = True
End Sub
