DropDown via VBA

Sub DropDownListinVBA()



Range("A18:A78").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

Formula1:="Plausibilisiert,offen,wird gelöscht,wird reduziert,keine finalen Kosten"



End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    

    Cancel = True

    With Target.EntireRow

        If Application.CutCopyMode = False Then

            .Copy

        Else

            .PasteSpecial xlPasteAll

            Application.CutCopyMode = False

            .Cells(1).Select

        End If

    End With



End Sub