Office: Bestimmte Daten übernehmen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem. Ich habe schon vieles durchsucht aber leider keine richtigen Lösungen gefunden. Darum meine bitte Euch, mir zu helfen, denn ich bin der absolute Neuling was Makros betrifft.

Nun zu meinem Problem, ich bräuchte ein Makro, das aus Tabelle 1 die Daten vom Aktuellen Datum an, bis 8 Tage im voraus in Spalte C ab Zeile 5 durchsucht, bei einem oder X Treffer die entsprechende Zeile (Zeilen) kopiert. In Tabelle 2, ab Zeile 2 bis 50 (größer wird diese Liste nicht) die vorherigen Daten löscht , die neuen einträgt und speichert. Das Makro, sofern es dieses überhaupt gibt, würde ich dann über einen Button starten.

 

Hallo!

Da deine Liste nicht allzu lang zu sein scheint, würde ich es in diesem Fall noch mit Formeln lösen. Dadurch aktualisiert sich deine Filter-Liste automatisch.

	A	B	C	D	E	F	G	H	I	J
1							bla	blabla	Datum	blablabla
2							d	dd	13.04.2009	ddd
3							e	ee	14.04.2009	eee
4	bla	blabla	Datum	blablabla			f	ff	15.04.2009	fff
5	a	aa	10.04.2009	aaa			g	gg	16.04.2009	ggg
6	b	bb	11.04.2009	bbb			h	hh	17.04.2009	hhh
7	c	cc	12.04.2009	ccc			i	ii	18.04.2009	iii
8	d	dd	13.04.2009	ddd			j	jj	19.04.2009	jjj
9	e	ee	14.04.2009	eee			k	kk	20.04.2009	kkk
10	f	ff	15.04.2009	fff			l	ll	21.04.2009	lll
11	g	gg	16.04.2009	ggg
12	h	hh	17.04.2009	hhh
13	i	ii	18.04.2009	iii
14	j	jj	19.04.2009	jjj
15	k	kk	20.04.2009	kkk
16	l	ll	21.04.2009	lll
17	m	mm	22.04.2009	mmm
18	n	nn	23.04.2009	nnn
19	o	oo	24.04.2009	ooo
20	p	pp	25.04.2009	ppp
21	q	qq	26.04.2009	qqq
22	r	rr	27.04.2009	rrr
23	s	ss	28.04.2009	sss
24

Zelle	Formel
G2	{=WENN(ZEILE($A1)>SUMME(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9));"";INDEX(A:A;KKLEINSTE(WENN(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9);ZEILE($5:$999));ZEILE($A1))))}
H2	{=WENN(ZEILE($A1)>SUMME(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9));"";INDEX(B:B;KKLEINSTE(WENN(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9);ZEILE($5:$999));ZEILE($A1))))}
I2	{=WENN(ZEILE($A1)>SUMME(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9));"";INDEX(C:C;KKLEINSTE(WENN(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9);ZEILE($5:$999));ZEILE($A1))))}
J2	{=WENN(ZEILE($A1)>SUMME(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9));"";INDEX(D:D;KKLEINSTE(WENN(($C$5:$C$999>=HEUTE())*($C$5:$C$999<HEUTE()+9);ZEILE($5:$999));ZEILE($A1))))}

<table><tr><td>Achtung, Matrixformel enthalten!</td></tr><tr><td><span>Die geschweiften Klammern{} werden </span><span>nicht</span><span> eingegeben.</span></td></tr><tr><td><span>Verlassen Sie den Zelleneditor mit </span><span>Strg+Shift + Enter</span><span>, statt Enter alleine.</span></td></tr></table>[/parsehtml]

Sollte es aus irgendwelchen Gründen zwingend per Makro sein müssen, dann schau doch mal hier. Das ist so ziemlich das gleiche.

 

Hallo schatzi
Erst einmal vielen Dank für Deine schnelle Antwort.
Aber was ist ein Zelleneditor und eine Shift-Taste?

 

Hallo!

Das bedeutet, dass du die Formeleingabe nicht wie gewohnt mit der Enter-Taste alleine abschließt, sondern mit der Tastenkombination Strg+Shift+Enter.
Shift ist die Taste, die du für Großbuchstaben benutzt (Hochstelltaste).

 

Hallo schatzi
wenn ich die Formel in G2 - J2 eingebe und entsprechend verlasse, werden bei mir die Daten von A5 - D5 übernommen. Aber ab G3 - J3 nicht mehr.
Heisst das dass ich die Formel bei 50 Zeilen 200mal eingeben müsste, denn das mit dem nach unten kopieren z. B. bis Zelle G51 geht nicht.

 

Hallo!

Nein, theoretisch brauchst du die Formel sogar nur in G2 korrekt einzugeben und kannst sie dann sowohl nach rechts wie auch nach unten wie gewohnt ausfüllen.
Warum dies bei dir bisher nicht klappt, vermag ich aus der Ferne nicht zu beurteilen...

 

Hallo Schatzi:
da hatte sich bei mir ein Fehler eingeschlichen. jetzt geht es. Noch mal einen großen Dank für Deine schnelle Hilfe.

 

Hallo
ich habe da noch eine Frage, geht es auch, das man in B1 bei Bedarf zusätzlich ein Suchdatum eingibt??? ( z.B. 16.10.2009)