Hallo zusammen,
ich bin gerade dabei eine For Schleife mit einem Dropdown zu verheiraten.
Leider macht mein Code bislang nicht was er soll.
Ziel der Übung ist, dass er den Wert aus der Zelle 2,1 ausliest und so oft ein Dropdown erstellt, wie der Wert ist. Anfangen soll er bei Zelle 4,2 (B4) (deshalb TFZaehler +3)
Für Vorschläge wäre ich sehr dankbar.
Grüße Daniel
Sub ComboBox()
Dim TFZaehler As Integer
Range("B4:B500").Clear
For TFZaehler = 1 To Cells(2, 1).Value
Cells(TFZaehler + 3, 2).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="open, failed, blocked, passed"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next TFZaehler
End Sub
|