Hallo Forum,
sieht hier jemand mein Fehler?
in diesem Teil des Makro möchte ich, wenn in Spalte A Text "ändern" steht, die Zellen B bis R koppieren, und in den Bereich AI eintragen.
Das Makro bleibt mir bei Paste in Spalte F stehen.
Stehe ich ja auch auf dem Schlauch?
Desweiterem wird die ganze Zeile ausgeschnitten und nach unten übertragen. Das geht einwandfrei.
Vielen Dank
Andrea
----------------------------------------------------------------------------
For k = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(k, 1) = "ändern" Then
Cells(k, 1).Activate
ActiveCell.Offset(0, 1).Range("A1:Q1").Copy
ActiveCell.Offset(0, 17).Range("A1").Paste
ActiveCell.Offset(0, -17).Range("A1").Select

Rows(k).Cut Destination:=ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0)

End If
Next k
----------------------------------------------------------------------------