Im DropDown nur 15 Einträge

If Target.Column = 15 Or Target.Column = 16 Or Target.Column = 17 Or Target.Column = 19 Then Zeitraum = Range("C" & Target.Row) Tagel (Zeitraum) 'Hier wird die Funktion abgearbeitet und das Array gefüllt On Error GoTo ende Application.EnableEvents = False With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Replace(Replace(Join(Arr_Alle, "~"), ",", ";"), "~", ",") .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Rows.EntireRow.AutoFit Application.EnableEvents = True Exit Sub Else End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Zeitraum As Date If Target.Column = 15 Or Target.Column = 16 Or Target.Column = 17 Or Target.Column = 19 Then Zeitraum = Range("C" & Target.Row) Tagel (Zeitraum) 'On Error GoTo ende Application.EnableEvents = False With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Replace(Replace(Join(Arr_Alle, "~"), ",", ";"), "~", ",") .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Rows.EntireRow.AutoFit Application.EnableEvents = True Exit Sub End If ende: Application.EnableEvents = True End Sub

Hallo Sepp,
zunächst mal Danke, dass du dich überhaupt mit meinem Problem auseinandersetzt. Wie du im Datenblatt Bau erkennen kannst stehen dort die Namen, an welchem Datum sie anwesend sind, und dass das Geschlecht männlich ist, die Abfragekriterien eben. In Tabelle 1 steht das Datum, mit dem die Daten in Tabelle Bau übereinstimmen müssen. In den Spalten O und P der Tabelle 1 sollen dann eben die DropDowns mit den Namen erscheinen.
Nun möchte ich diese Namen aus dem Datenblatt Bau in der DropDown-Liste haben (in der Beispielmappe sind es eben alle, die gelistet sind)
Ich hoffe, es ist einfach zu verstehen.
Und- ja, der Code ist zum fürchten, weil in der Spalte, in der die verschiedenen Daten (Datum) drinstehen, auch Bereiche sein können also bspw. 1.4. - 20.05.
Gruß Oisse

Wo hast du den Code denn her?
Entweder

.Add Type:=xlValidateList

dann muss ein Bereich oder eine Liste als Formula1 übergeben werden - z.B.:

Formula1:="=$D$1:$D$8"

oder

.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop,Operator:=xlBetween

dann müssen die Grenzwerte als Formeln übergeben werden - z.B.:

Formula1:="3", Formula2:="5"

oder du hast eine benutzerdef. Formel:

.Add Type:=xlValidateCustom

und z.B.:

Formula1:="=ZS>7"

With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Join(Arr_Alle, ";") .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Im DropDown nur 15 Einträge

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread