Datum

Titel

19.04.2024 15:39:42

Exceltabelle daten per combobox zu word Datei

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

19.04.2024 13:58:02

Set Worksheet geht im O365 aber im Excel 2016 nicht

19.04.2024 13:49:38

Per Kopfdruck als pdf speichern und Mail erstellen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1284to1288

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Liste "expandieren"

Forumthread: Liste "expandieren"
7 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

Liste "expandieren"

26.10.2012 13:29:40

AndreasG

Hallo Leute,
leider muss ich euch vor dem WE noch einmal um Hilfe bitten. Ich habe eine Liste mit variabler Länge bestehend aus 4 Spalten.
Sp1: von/am
Sp2: bis
Sp3: Projekt
Sp4: Wert
In Spalte 1 und 2 stehen Datumsfelder (zB. 01.04.2013) in Spalte 3 eine Bezeichnung und in Spalte 4 ein Wert. Spalte 1, 3 und 4 sind immer gefüllt. Spalte 2 manchmal. Und genau da ist mein Problem. Wenn Spalte 2 mit einem bis-Datum gefüllt (z.B. 31.08.13) und Spalte 1 mit einem von-Datum (z.B. 01.06.2013) dann soll daraus in meiner neuen Liste aus dieser einen Zeile genau 3 Zeilen mit Datum (1.6; 1.7 und 1.8.) werden. Die Spalte 2 ist (wenn gefüllt) immer mit dem Monatsletzten belegt. Eine Zeile, die kein bis-Datum hat, soll 1:1 übernommen werden.
Beispieldatei anbei:
https://www.herber.de/bbs/user/82328.xlsx
Die Quelldaten stehen in Spalte E bis H. Wie das Ergebnis aussehen soll habe ich in Spalten K bis M beschrieben.
Jahresübergreifende Zeilen kommen nicht vor!
Grüße und danke für Hilfe
Andreas

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Anmerkung: VBA leider nicht erlaubt :-(

26.10.2012 14:16:14

AndreasG
AW: Anmerkung: VBA leider nicht erlaubt :-(

28.10.2012 01:09:57

Matze,Matthias
Monatsbeginne auflisten

28.10.2012 07:51:16

Erich
Von-Bis-Liste expandieren

28.10.2012 12:45:05

Erich
Von-Bis-Liste expandieren - einfacher

29.10.2012 00:04:41

Erich
AW: perfetto :-)

29.10.2012 10:36:08

AndreasG
Monatsbeginne auflisten - einfacher

29.10.2012 00:37:30

Erich

Anmerkung: VBA leider nicht erlaubt :-(

26.10.2012 14:16:14

AndreasG

o.w.T

AW: Anmerkung: VBA leider nicht erlaubt :-(

28.10.2012 01:09:57

Matze,Matthias

Hi Andreas,
soweit ich das beurteilen kann, gibt es keine Excelfunktion die Zeilen einfügen kann,
daher wird es ohne VBA nicht machbar sein.
Entweder mit VBA ein "Funktion" erstellen oder gleich damit dein Ziel erreichen.
Die "allg." Frage, warum kein VBA?
lasse offen, da hier noch kein Profi geantwortet hat.
Matze

Monatsbeginne auflisten

28.10.2012 07:51:16

Erich

Hi Andreas,
probier mal:

	E	F	G	H	I	J	K	L	M	N	O
1							O2 muss leer oder 0 sein				Hilfsspalte
2	von/am	bis	Projekt	Wert			von	Projekt	Wert
3	01.01.2013		Projekt 1	1,00			01.01.2013	Projekt 1	1,00		1
4	01.11.2013	01.11.2013	Projekt 1a	4,00			01.11.2013	Projekt 1a	4,00		2
5	01.05.2013		Projekt 1b	4,22			01.05.2013	Projekt 1b	4,22		3
6	01.03.2013	30.04.2013	Projekt 2	6,00			01.03.2013	Projekt 2	6,00		4,0001
7	01.08.2013	30.09.2013	Projekt 2b	7,00			01.04.2013	Projekt 2	6,00		4,0002
8	01.01.2011		Projekt 3	6,50			01.08.2013	Projekt 2b	7,00		5,0001
9	01.08.2014		Projekt 4b	9,00			01.09.2013	Projekt 2b	7,00		5,0002
10	01.09.2013	31.01.2014	Projekt 4	20,00			01.01.2011	Projekt 3	6,50		6
11	01.12.2017	01.02.2018	Projekt 5	5,00			01.08.2014	Projekt 4b	9,00		7
12	01.04.2013		Projekt 66	6,66			01.09.2013	Projekt 4	20,00		8,0001
13							01.10.2013	Projekt 4	20,00		8,0002
14							01.11.2013	Projekt 4	20,00		8,0003
15	Alle Monatsbeginne von - bis						01.12.2013	Projekt 4	20,00		8,0004
16							01.01.2014	Projekt 4	20,00		8,0005
17							01.12.2017	Projekt 5	5,00		9,0001
18							01.01.2018	Projekt 5	5,00		9,0002
19							01.02.2018	Projekt 5	5,00		9,0003
20							01.04.2013	Projekt 66	6,66		10

Formeln der Tabelle

Zelle	Formel
K3	=WENN(REST(10000*O3;10000)<1,5;INDEX(E$3:E$12;O3); DATUM(JAHR(K2); MONAT(K2)+1;1))
L3	=INDEX(G$3:G$12;O3)
M3	=INDEX(H$3:H$12;O3)
O3	=KÜRZEN(O2)+WENN(REST(O2;1)=0; 1+WENN((INDEX($E$3:$E$12;O2+1)<INDEX($F$3:$F$12;O2+1))ISTZAHL(INDEX($F$3:$F$12;O2+1)); 0,0001;0); WENN(DATEDIF(INDEX($E$3:$E$12;O2); INDEX($F$3:$F$12;O2); "m")+1 >RUNDEN(10000REST(O2;1); ); REST(O2;1)+1/10000;1+WENN(ISTZAHL(INDEX($F$3:$F$12;O2+1)); 0,0001;0)))

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Von-Bis-Liste expandieren

28.10.2012 12:45:05

Erich

Hi Andreas,
wenn es mal nicht um Monate, sondern nur um Zahlen geht:

	B	C	D	E	F	G	H	I	J	K	L
2							Anzahl:	18	L4 muss leer oder 0 sein
3	Nr von	Nr bis	Projekt	Wert							Hilfsspalte
4	1		Projekt 1	1,00			Nr	Projekt	Wert		0
5	47	47	Projekt 1a	4,00			1	Projekt 1	1,00		1
6	5		Projekt 1b	4,22			47	Projekt 1a	4,00		2
7	3	4	Projekt 2	6,00			5	Projekt 1b	4,22		3
8	108	109	Projekt 2b	7,00			3	Projekt 2	6,00		4,0001
9	1		Projekt 3	6,50			4	Projekt 2	6,00		4,0002
10	26		Projekt 33b	9,00			108	Projekt 2b	7,00		5,0001
11	9	13	Projekt 4	20,00			109	Projekt 2b	7,00		5,0002
12	-100	-98	Projekt 5	5,00			1	Projekt 3	6,50		6
13	4		Projekt 66	6,66			26	Projekt 33b	9,00		7
14							9	Projekt 4	20,00		8,0001
15							10	Projekt 4	20,00		8,0002
16							11	Projekt 4	20,00		8,0003
17							12	Projekt 4	20,00		8,0004
18							13	Projekt 4	20,00		8,0005
19							-100	Projekt 5	5,00		9,0001
20							-99	Projekt 5	5,00		9,0002
21							-98	Projekt 5	5,00		9,0003
22							4	Projekt 66	6,66		10
23											0
24											0

Formeln der Tabelle

Zelle	Formel
I2	=SUMMENPRODUKT(ISTLEER($C$4:$C$99)ISTZAHL($B$4:$B$99)+ISTZAHL($C$4:$C$99)(ABS($C$4:$C$99+1-$B$4:$B$99)))
H5	=WENN($L5;WENN(REST(10000*L5;10000)<1,5;INDEX(B$4:B$99;L5); H4+1); "")
I5	=WENN($L5;INDEX(D$4:D$99;$L5); "")
J5	=WENN($L5;INDEX(E$4:E$99;$L5); "")
L5	=(I$2>ZEILE()-5)(KÜRZEN(L4)+WENN(REST(L4;1)=0; 1+WENN((INDEX($B$4:$B$99;L4+1)<INDEX($C$4:$C$99;L4+1))ISTZAHL(INDEX($C$4:$C$99;L4+1)); 0,0001;0); WENN(INDEX($C$4:$C$99;L4)-INDEX($B$4:$B$99;L4)+1 >RUNDEN(10000*REST(L4;1); ); REST(L4;1)+1/10000;1+WENN(ISTZAHL(INDEX($C$4:$C$99;L4+1)); 0,0001;0))))

Die Anzahl der Ausgabezeilen wird in I2 einmalig berechnet,
um die Endebedingung in Spalte L einfacher formulieren zu können.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich und: Schönen Restsonntag noch!

Von-Bis-Liste expandieren - einfacher

29.10.2012 00:04:41

Erich

Hi,
so ist es ein wenig einfacher:

	B	C	D	E	F	G	H	I	J	K
2								Anzahl:	18
3	Nr von	Nr bis	Projekt	Wert		Hilf
4	1		Projekt 1	1,00		1		Nr	Projekt	Wert
5	11	11	Projekt 1a	4,00		2		1	Projekt 1	1,00
6	5		Projekt 1b	4,22		3		11	Projekt 1a	4,00
7	3	4	Projekt 2	6,00		4		5	Projekt 1b	4,22
8	-19	-18	Projekt 2b	7,00		6		3	Projekt 2	6,00
9	3		Projekt 3	6,50		8		4	Projekt 2	6,00
10	26		Projekt 33b	9,00		9		-19	Projekt 2b	7,00
11	9	13	Projekt 4	20,00		10		-18	Projekt 2b	7,00
12	-100	-98	Projekt 5	5,00		15		3	Projekt 3	6,50
13	4		Projekt 66	6,66		18		26	Projekt 33b	9,00
14								9	Projekt 4	20,00
15								10	Projekt 4	20,00
16								11	Projekt 4	20,00
17								12	Projekt 4	20,00
18								13	Projekt 4	20,00
19								-100	Projekt 5	5,00
20								-99	Projekt 5	5,00
21								-98	Projekt 5	5,00
22								4	Projekt 66	6,66

Formeln der Tabelle

Zelle	Formel
J2	=MAX(G:G)+(VERGLEICH(-1E+307;B:B;-1)=VERGLEICH(-1E+307;C:C;-1))*(C13-B13)
G4	=WENN(B4="";"";WENN(ZEILE()=4;1;G3+1+(C3-B3*ISTZAHL(C3))))
I5	=WENN(ZEILE(B1)>J$2;"";WENN(ISTNV(VERGLEICH(ZEILE(B1); G:G;0)); I4+1;INDEX(B:B;VERGLEICH(ZEILE(B1); G:G;0))))
J5	=WENN(ZEILE(B1)>J$2;"";WENN(ISTNV(VERGLEICH(ZEILE(B1); G:G;0)); J4;INDEX(D:D;VERGLEICH(ZEILE(B1); G:G;0))))
K5	=WENN(ZEILE(B1)>J$2;"";WENN(ISTNV(VERGLEICH(ZEILE(B1); G:G;0)); K4;INDEX(E:E;VERGLEICH(ZEILE(B1); G:G;0))))

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

AW: perfetto :-)

29.10.2012 10:36:08

AndreasG

Hallo Erich,
G E N I A L!
ein ganz herzliches Dankeschön an Dich!!
Grüße
Andreas

Monatsbeginne auflisten - einfacher

29.10.2012 00:37:30

Erich

Hi Andreas,
und hier eine vereinfachte Erzeugung der Liste der Monatsersten:

	B	C	D	E	F	G	H	I	J	K
2								Anzahl:	19
3	Nr von	Nr bis	Projekt	Wert		Hilf
4	01.01.13		Projekt 1	0		1		Nr	Projekt	Wert
5	01.11.13	01.11.13	Projekt 1a	1		2		01.01.13	Projekt 1	0
6	01.05.13		Projekt 1b	10		3		01.11.13	Projekt 1a	1
7	01.03.13	30.04.13	Projekt 2	100		4		01.05.13	Projekt 1b	10
8	01.08.13	30.09.13	Projekt 2b	1000		6		01.03.13	Projekt 2	100
9	01.01.11		Projekt 3	10000		8		01.04.13	Projekt 2	100
10	01.08.14		Projekt 33b	1000		9		01.08.13	Projekt 2b	1000
11	01.09.13	31.01.14	Projekt 4	100		10		01.09.13	Projekt 2b	1000
12	01.12.17	01.02.18	Projekt 5	10		15		01.01.11	Projekt 3	10000
13	01.04.13	01.05.13	Projekt 66	1		18		01.08.14	Projekt 33b	1000
14								01.09.13	Projekt 4	100
15								01.10.13	Projekt 4	100
16								01.11.13	Projekt 4	100
17								01.12.13	Projekt 4	100
18								01.01.14	Projekt 4	100
19								01.12.17	Projekt 5	10
20								01.01.18	Projekt 5	10
21								01.02.18	Projekt 5	10
22								01.04.13	Projekt 66	1
23								01.05.13	Projekt 66	1

Formeln der Tabelle

Zelle	Formel
J2	=MAX(G:G)+WENN(VERGLEICH(-1E+307;B:B;-1)=VERGLEICH(-1E+307;C:C;-1); DATEDIF(VERWEIS(9^7;B:B); VERWEIS(9^7;C:C); "m"); )
G4	=WENN(B4="";"";WENN(ZEILE()=4;1;G3+WENN(ISTZAHL(C3); 1+DATEDIF(B3;C3;"m"); 1)))
I5	=WENN(ZEILE(B1)>J$2;"";WENN(ISTNV(VERGLEICH(ZEILE(B1); G:G;0)); DATUM(JAHR(I4); MONAT(I4)+1;1); INDEX(B:B;VERGLEICH(ZEILE(B1); G:G;0))))
J5	=WENN(ZEILE(B1)>J$2;"";WENN(ISTNV(VERGLEICH(ZEILE(B1); G:G;0)); J4;INDEX(D:D;VERGLEICH(ZEILE(B1); G:G;0))))
K5	=WENN(ZEILE(B1)>J$2;"";WENN(ISTNV(VERGLEICH(ZEILE(B1); G:G;0)); K4;INDEX(E:E;VERGLEICH(ZEILE(B1); G:G;0))))