Office: Listenfeld im Tabellenblatt füllen

Hallo und guten Morgen

Ich arbeite in einem neuen Betrieb wo wir Abos verkaufen.

Ich benutze dazu zwei Blätter: Home und Abos. Auf dem Blatt "Home" sollte es anzeigen wieviele Abos in den nächsten 30 Tagen ablaufen (Zahl) und in einem Listenfeld welche Kunden es sind. Die Werte werden aus dem Blatt "Abos" geholt.

Wie fülle ich das Steuerelement mit all den Kunden deren Abo bald abläuft. Muss ich dazu eine Matrixformel benutzen (sverweis?) oder geht das nur mit VBA (wenig Erfahrung)? Mein Chef möchte dass auf dem Blatt "Home" alle Kunden gelistet werden, und denke dass dies nur mit einem Listenfeld möglich ist.

Ich wende mich an Euch weil ich schon viele wertvolle Tipps benutzen und erlernen konnte.

Vielen lieben Dank

Maria

Arbeitsblatt mit dem Namen 'Home'
	A	B	C	D	E	F
1	Abonnemente
2
3	Bald ablaufende Abos		3
4
5	Von Kunden
6
7
8
9
10
11
12
13
14
15
16
17

Zelle	Formel
C3	=SUMMENPRODUKT((Abos!E2:E8>0)*(Abos!E2:E8<30))

Arbeitsblatt mit dem Namen 'Abos'
	A	D	E
1	Name	Ablaufdatum	Rest
2	Markus Müller	23.06.2011	113
3	Heinz Bucher	15.03.2011	13
4	Annamaria Schmidt	04.02.2011	0
5	Monika Aschwanden	12.10.2010	0
6	Erika Bürger	01.01.2012	305
7	Fredy Lust	12.03.2011	10
8	Sepp Blatter	13.03.2011	11

Zelle	Formel
D2	=DATUM(JAHR(B2);MONAT(B2)+C2;TAG(B2))
E2	=WENN(D2-HEUTE()>0;D2-HEUTE();0)
D3	=DATUM(JAHR(B3);MONAT(B3)+C3;TAG(B3))
E3	=WENN(D3-HEUTE()>0;D3-HEUTE();0)
D4	=DATUM(JAHR(B4);MONAT(B4)+C4;TAG(B4))
E4	=WENN(D4-HEUTE()>0;D4-HEUTE();0)
D5	=DATUM(JAHR(B5);MONAT(B5)+C5;TAG(B5))
E5	=WENN(D5-HEUTE()>0;D5-HEUTE();0)
D6	=DATUM(JAHR(B6);MONAT(B6)+C6;TAG(B6))
E6	=WENN(D6-HEUTE()>0;D6-HEUTE();0)
D7	=DATUM(JAHR(B7);MONAT(B7)+C7;TAG(B7))
E7	=WENN(D7-HEUTE()>0;D7-HEUTE();0)
D8	=DATUM(JAHR(B8);MONAT(B8)+C8;TAG(B8))
E8	=WENN(D8-HEUTE()>0;D8-HEUTE();0)

 

Letzteres...

Eine Formel kann das Ergebnis nur dort darstellen, wo die Formel selbst steht. Eine Formel in B2 kann das Ergebnis also nicht in z.B. D4 ausgeben, und erst recht nicht in einem Steuerelement. Die haben mit Formeln nämlich zunächst erstmal gar nichts am Hut.

Wenn der Autofilter (benutzerdefiniert mit den 2 Kriterien ">0 und <30") nicht reicht, um die Liste auf die entsprechenden Einträge zu reduzieren (dann würde Teilergebnis() auch das SummenProdukt() überflüssig machen...), dann wirst Du nur was per VBA werden.

Gruß, Michael

 

Hi Michael

Danke für dein Tipp. War sehr lieb von dir.

Ich hätte eigentlich auch mit dem Autofilter - mit dem Kopieren auf das "Home" Blatt - arbeiten sollen. Wie dumm von mir :-) Muss noch schauen wie das mit autoaktualisieren tun soll, aber wird schon irgendwie klappen.

Vielen Dank

Maria