AW: DropDown in zellen
16.09.2004 11:56:37
Andre
Hier der Code, der dier wahrscheinlich helfen wird:
In diesem Beispiel steht in Spalte A die Bezugsliste und in D wird die Gültigkeit eingefügt! Das mußt du dann noch durch deine Spalten oder Zellbereiche ersetzen.
Sub Makro2()
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
LetzteZeile = Sheets("Tabelle1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
With Columns("D:D").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$1:$A$" & LetzteZeile
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Viel Spaß damit.
Gruß Andre