DropDown via VBA
28.11.2023 09:32:37
Tommy
Ich nutzen diesen Code, um ein Dropdown Menü zu setzten.
Sub DropDownListinVBA()
Range("A18:A78").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="Plausibilisiert,offen,wird gelöscht,wird reduziert,keine finalen Kosten"
End Sub
Ich wähle per Doppelklick eine Zeile aus und füge sie in dem Bereich A18:A78 ein, damit überschreibe/lösche ich das DropDown Menü.
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
Kann man den Code dahin ändern, das er nur da ein Dropdown Menü setzt wo keines ist, oder das dieses durch das einfügen nicht gelöscht wird?
Vielen Dank für Eure Hilfe.
Gruß
Tommy