Frage zu meinem VBA-Code

[C598]

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

[HubertK]

Hei,

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

[schauan]

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

Diese Tabelle wurde mit Tab2Html (v2.7.2) erstellt. ©Gerd alias Bamberg