Clever-Excel-Forum

Moin liebes Forum und noch ein frohes neues Jahr!

Ich habe eine kurze Frage zu einem von mir verwendeten VBA-Code. Diesen verwende ich, um in einer Tabelle die ausgewählte Zeile zu kopieren und unter der ausgewählten Zeile einzufügen. Dies hat bisher immer geklappt, allerdings ist es nun so, dass nicht mehr die ausgewählte Zeile kopiert wird, sondern die darüberliegende Zeile. Hat jemand ggf. eine Ahnung, woraus dies resultieren könnte? An den Bedingungen hat sich nichts geändert, bis auf dass ich die Daten in Spalte B auf 2023 geändert hab. Der Code sieht wie folgt aus:

Code:
Sub Kopieren()                                                                              

Application.ScreenUpdating = False

    ActiveSheet.Unprotect Password:="1234"

    Selection.EntireRow.Insert

    With Range(Cells(Selection.Row, "A"), Cells(Selection.Row, "Z"))

        .Offset(1, 0).Resize(1).Copy

        .PasteSpecial Paste:=xlPasteAll

    End With

    Application.ScreenUpdating = True

    ActiveSheet.Protect Password:="1234"

End Sub

Ich freue mich über jede Hilfe!

LG

Hei,

in meiner Testtabelle funktioniert das, so wie du es beschrieben hast.

Hallöchen,
bei mir fügt der Code an die Stelle der Markierung eine Zeile ein, kopiert die dadurch nach unten gerückte Zeile und fügt diese an die Stelle der Markierung ein.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	Z
1	1	1
2	2	2
3	3	3
4	3	3
5	4	4
6	5	5

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

C598

HubertK

schauan