in einem Excel Sheet und dort in einer Zelle befindet sich eine Combobox
(Kein Code im Sheet oder im Modul).
Wie kann die Auswahl um Items erweitert werden?
Gruss
Camel
Sub t()
MsgBox ActiveCell.Validation.Formula1
End Sub
Sub t()
MsgBox ActiveCell.Validation.Formula1
End Sub
Private Sub Test()
Dim Parts() As String
Dim Part As Variant
Cell_Formula = ActiveCell.Validation.Formula1
Parts = Split(Cell_Formula, ";")
If UBound(Parts) = 0 Then Exit Sub
Cell_Formula = ""
For Each Part In Parts
Cell_Formula = Cell_Formula & Part & ","
Next
With ActiveCell.Validation
.Delete
.Add Type:=xlValidateList, _
Formula1:=Cell_Formula & "Schlurpsi,Burpsi"
.InCellDropdown = True
End With
End Sub