Erstellen Sie ein Makro neue Zeile hinzufügen, die Drop-Down-Optionen

Question

What I start with

This is what I want it to do, but for every row

Hier ist das Makro, das erstellt wurde, umfasst, als ich einfach die erste Zeile kopiert und eingefügt. Dies kopiert die Dropdown-Menüs für die Spalten B und C, die ich für jede neue Zeile benötige. Es kann also nicht nur die Werte kopieren, die in der zu kopierenden Zeile erscheinen, sondern auch die Dropdown-Liste (die neue Zeile kann über oder unter dem Rest liegen). Kann der folgende Code optimiert werden?

Sub AddLine() ' ' Macro AddLine ' ' Tastenkombination Strg + Shift + A " Range ("B4: C4"). Wählen Selection.Copy

Range("B5:C5").Select 
ActiveSheet.Paste 

Range("D5").Select 
Application.CutCopyMode = False 

Range("B5").Select 

End Sub

Answer 1

Unten ist ein Ansatz. Er kopiert die Validierung (nur die Validierung) von B4:C4 und fügt sie eine Zeile unterhalb der ActiveCell ein. Vorausgesetzt, der Cursor ist überall in Zeile 6, wenn Sie dieses Makro ausführen, werden die Validation Dropdown-Felder in Zellen B7:C7 kopiert.

Sub CopyValidation() 
    Dim rCopy As Range 


    Application.ScreenUpdating = False 

    Set rCopy = ActiveSheet.Range("B4:C4") 

    rCopy.Copy 
    ActiveSheet.Range("B" & ActiveCell.Row + 1).PasteSpecial xlPasteValidation 
    Application.CutCopyMode = False 

    Application.ScreenUpdating = True 
End Sub 

Benötigen Sie das?