DropDown in Spalte J
05.03.2021 18:08:53
FL
eine weitere Frage, zu der ich leider überhaupt nichts finden kann.
Per Makro möchte ich eine DropDown liste einfügen. Dies soll in Spalte I passieren.
Mache ich es per Hand ist alles in Ordnung, mache ich es per Makro habe ich euf einmal in Spalte B - J diese Drop Down Liste.
Wenn ich die Drop Down Liste in den Spalten wieder löschen, indenen es nicht sein soll, löscht er es mit aber auch in Spalte I, in der es stehen bleiben soll.
Pseudocode:
Sub Einfügen()
Range("I20:I450").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='Drop Down Liste'!$J$3:$J$32"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Sub löschen()
Range("B20:H450").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Range("J20:J450").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub
Viele Grüße
Anzeige