dynamisches DropDown

Sub DropDown() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$B$1:$B$200" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Hi Erik,
vielleicht eine Möglichkeit:
Tabelle1

	A	B	C	D	E
1	a	a	1		c
2	b	b	2
3	c	c	3
4	a	d	4
5	c	e	5
6	d	f	6
7	a
8	e
9	f

verwendete Formeln
Zelle	Formel	Bereich
B1	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A1))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A1))))}	$B$1
C1	=WENN(B1<>"";ZEILE();"")
B2	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A2))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A2))))}	$B$2
C2	=WENN(B2<>"";ZEILE();"")
B3	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A3))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A3))))}	$B$3
C3	=WENN(B3<>"";ZEILE();"")
B4	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A4))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A4))))}	$B$4
C4	=WENN(B4<>"";ZEILE();"")
B5	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A5))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A5))))}	$B$5
C5	=WENN(B5<>"";ZEILE();"")
B6	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A6))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A6))))}	$B$6
C6	=WENN(B6<>"";ZEILE();"")
B7	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A7))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A7))))}	$B$7
C7	=WENN(B7<>"";ZEILE();"")
B8	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A8))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A8))))}	$B$8
C8	=WENN(B8<>"";ZEILE();"")
B9	{=WENN(ISTFEHLER(INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A9))));"";INDEX(A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A9))))}	$B$9
C9	=WENN(B9<>"";ZEILE();"")

{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!

definierte Namen
Name	Bezieht sich auf	Tabelle	Z1S1-Formel
Liste	=BEREICH.VERSCHIEBEN(Tabelle1!$B$1;;;MAX(Tabelle1!$C:$C);1)		=BEREICH.VERSCHIEBEN(Tabelle1!Z1S2;;;MAX(Tabelle1!S3);1)

Tabellendarstellung in Foren Version 5.48

Herkunft Formel in Spalte B - http://www.excelformeln.de/formeln.html?welcher=194

Beliebteste Forumthreads (12 Monate)

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread