Zeilen mit bestimmten Datum kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
... bin selber etwas erstaunt, dass die Lösung Deiner vorgegebenen Aufgabenstellung wirklich nur mit einer Formel realisierbar ist. Dies schien mir selbst anfänglich unmöglich.
Allerdings stell ich diese Formel hier nur ein, weil Du einerseits darum gebeten hattest und Du andererseits ja schon ein funktionsfähiges Makro von Uwe hast, dass Du sicherlich selbst bei Notwendigkeit anpassen oder leichter anpassen lassen kannst als meine Formel.
Die Formel ist von mir nur einerseits aus "Spieltrieb" andererseits auch Interesse so wie unten stehend konstruiert, um zu erkunden, ob es denn auch eine Formellösung mit nur einer(!) Formel geben kann. Hierbei war für eine Formellösung nicht die eigentliche Aufgabenstellung das komplizierteste in der Realisierung sondern die Randbedingungen. Die Monatswahl und Wahl des maßgebenden Jahres war/ist jedoch völlig einfach mit z.B. Dropdownzellen zu lösen. Ich hab dafür owssvr!E1:F1 gewählt.
Meine Formel ist momentan noch nicht optimiert aber diese wäre schon allein dadurch geschätzt nur 2/3 so lang geworden, wenn ich anstelle in A1 mit der Lösung in B2 hätte anfangen können und ich zusätzlich nicht hätte berücksichtigen wollte, dass ich nicht nach Kopieren der Formel noch verschiedene Zellformate zuweisen wollte. Momentan hab ich mir da so geholfen, dass ich der Formel in A1 nur das Datumsformat zugewiesen habe und die Zahlenwerte im Textformat ausgebe.
Die Formel ist auch deshalb nicht zu empfehlen, weil eine evtl. notwendige Anpassung in der derzeitigen Fassung wohl selbst für formelerfahrene Nutzer schwierig zu überschauen ist. Wie bereits angedeutet, hätte ich eine zwingend notwendige Formellösung anders strukturiert aufgebaut.
Positiv an nachfolgender Formellösung ist für mich also nur die Bestätigung dessen, das man mit nur einer Formel auch relativ komplexere Probleme lösen kann. Übrigens noch interessant: die Formel als benannte Formel definiert funktioniert so nicht (würde dann einen Zirkelbezug ergeben!).
Formel A1 weit genug nach rechts und unten ziehend kopieren:
MonatsDaten

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
1	02.02.16	24	Txt_03		04.02.16	26	Txt_05		09.02.16	27	Txt_06		11.02.16	31	Txt_10		24.02.16	33	Txt_12		25.02.16	34	Txt_13
2	02.02.16	25	Txt_04						09.02.16	28	Txt_07		11.02.16	32	Txt_11						25.02.16	35	Txt_14
3									09.02.16	29	Txt_08
4									09.02.16	30	Txt_09
5

Formeln der Tabelle

Zelle

Formel

=WENN(ZEILE()=1;WENNFEHLER(WENN(SPALTE()=1;INDEX(owssvr!$A:$A;AGGREGAT(15;6;ZEILE(owssvr!$A$1:$A$999)/(TEXT(owssvr!$A$1:$A$999;"MMMM")=owssvr!$E$1); 1)); WENN((REST(SPALTE(); 4)=1)*(SPALTE()>1); INDEX(owssvr!$A:$A;AGGREGAT(15;6;ZEILE(owssvr!$A$1:$A$999)/(TEXT(owssvr!$A$1:$A$999;"MMMM")=owssvr!$E$1)/ISTNV(VERGLEICH(owssvr!$A$1:$A$999;INDEX(1:1;1):INDEX(1:1;SPALTE()-1); ))/(REST(SPALTE(); 4)=1); 1)); INDEX(owssvr!$A:$D;AGGREGAT(15;6;ZEILE(owssvr!A$1:A$999)/(owssvr!$A$1:$A$999=INDEX(1:1;KÜRZEN((3+SPALTE())/4;)*4-3)); ZEILE()); 2*(REST(SPALTE(); 4)-1))&"")); ""); WENN(INDEX(A:A;ZEILE()-1)="";"";WENN((REST(SPALTE(); 4)=1)*ZEILE()>ZÄHLENWENN(owssvr!$A$1:$A$999;INDEX(A:A;ZEILE()-1)); "";WENN(REST(SPALTE(); 4)=1;INDEX(A:A;ZEILE()-1); WENNFEHLER(INDEX(owssvr!$A:$D;AGGREGAT(15;6;ZEILE(owssvr!A$1:A$999)/(owssvr!$A$1:$A$999=INDEX(1:1;KÜRZEN((3+SPALTE())/4;)*4-3)); ZEILE()); 2*(REST(SPALTE(); 4)-1))&"";"")))))

owssvr

	A	B	C	D	E	F
1	Datum	Wert		Text	Februar	2016
2	Fr 29.01.16	22		Txt_01
3	Fr 29.01.16	23		Txt_02
4	Di 02.02.16	24		Txt_03
5	Di 02.02.16	25		Txt_04
6	Do 04.02.16	26		Txt_05
7	Di 09.02.16	27		Txt_06
8	Di 09.02.16	28		Txt_07
9	Di 09.02.16	29		Txt_08
10	Di 09.02.16	30		Txt_09
11	Do 11.02.16	31		Txt_10
12	Do 11.02.16	32		Txt_11
13	Mi 24.02.16	33		Txt_12
14	Do 25.02.16	34		Txt_13
15	Do 25.02.16	35		Txt_14
16	Mi 02.03.16	36		Txt_15
17	Mi 02.03.16	37		Txt_16
18	Di 29.03.16	38		Txt_17
19

Datengültigkeit der Tabelle

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
E1	Liste		Januar;Februar;März

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...

Hallo Peter
ich hoffe ich habe alles richtig verstanden...
Sub Peter() On Error GoTo Fehler Dim TB1, TB2, TB3, i!, Z! Dim LR1&, LC! Dim Monat!, Jahr!, Anz! Set TB1 = Sheets("owssvr") Set TB2 = Sheets("Tabelle2") Application.ScreenUpdating = False Monat = Format(InputBox("Welcher Monat", "Daten trennen", "01"), "00") If Monat > 12 Then MsgBox "Nur Monate 01 - 12 zugelassen!": Exit Sub Jahr = InputBox("Welches Jahr", "Daten trennen", "2016") With TB1 If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten LR1 = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A .Columns("A:D").AutoFilter .Range("$A$1:$D$" & LR1).AutoFilter Field:=1, _ Criteria1:=">=" & CDbl(DateSerial(Jahr, Monat, 1)), Operator:=xlAnd, _ Criteria2:=" TB3.Cells(i, 1) Then LC = LC + 3 Z = 0 End If Z = Z + 1 Next End With Application.DisplayAlerts = False TB3.Delete Application.DisplayAlerts = True '*** Fehlerbehandlung Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description Err.Clear Application.DisplayAlerts = True End Sub
Gruß UweD
Über Rückmeldungen würde ich mich freuen

Beliebteste Forumthreads (12 Monate)

Zeilen mit bestimmten Datum kopieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen mit bestimmten Datum kopieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread