Freien Zeitraum ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
... unter zusätzlichem Einsatz der Funktionen VERWEIS() und WENNFEHLER().
Deine Datenstruktur ist zwar nicht optimal. lässt sich aber wunschgemäß auswerten. Nachfolgende Formeln (momentan aufbereitet für die Auswertung bis zur Zeile 99 - was sich entsprechend erweitern liese sowie für bis zu 9999 Datumsangaben in Zeile 14) einfach nach unten kopieren. Also diese stehn auch in Zeile 7! (ergeben eben wie vorgegeben dort als Ergebnis eben nur ein ="")
Die Formeln funktionieren nur korrekt, wenn Deine Namen in Spalte B und A auch identisch sind (in B9 hab ich das Leerzeichen im Namen "Name 32 deswegen entfernt) und in A1:A14 nicht nochmal auftauchen.

	A	B	C	D	E	F	G	H
1			Ausgangsdatum Datum:		08.11.2011
2
3					Freizeit von bis
4	wunschausgabe		Datum ende	Uhrzeit Ende		Datum Beginn	Uhrzei Anfang
5		Name1	06.11.2011	14:00		10.11.2011	07:00
6	wunschausgabe		Datum ende	Uhrzeit Ende		Datum Beginn	Uhrzei Anfang
7		Name2
8	wunschausgabe		Datum ende	Uhrzeit Ende		Datum Beginn	Uhrzei Anfang
9		Name3	02.11.2011	18:00		08.11.2011	07:00

Formeln der Tabelle

Zelle	Formel
C5	=WENNFEHLER(WENN((VERWEIS($E$1;$14:$14;INDEX($1:$99;VERGLEICH(B5;A:A;); ))="Arbeiten")*(VERWEIS(E$1-1;$14:$14;INDEX($1:$99;VERGLEICH(B5;A:A;); ))="Arbeiten"); "";VERWEIS(9;1/($14:$14<$E$1)/($14:$14>0)/(INDEX(A$1:A$99;VERGLEICH(B5;A:A;)):INDEX($1:$99;VERGLEICH(B5;A:A;); VERGLEICH(E$1;$14:$14;)-1)="Arbeiten"); $14:$14)); "")
D5	=WENN(C5="";"";INDEX($1:$99;VERGLEICH(B5;A:A;)-2;VERGLEICH(C5;$14:$14;)))
F5	=WENN(C5="";"";INDEX($14:$14;VERGLEICH("Arbeiten";INDEX($1:$99;VERGLEICH(B5;A:A;); VERGLEICH(E$1;$14:$14;)):INDEX($1:$99;VERGLEICH(B5;A:A;); 9999); )+VERGLEICH(E$1;$14:$14;)-1))
G5	=WENN(F5="";"";INDEX($1:$99;VERGLEICH(B5;A:A;)-1;VERGLEICH(F5;$14:$14;)))

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

Hallo
erstmal lieben Dank für die super hilfe von neopa C. Ich dachte den rest bekomme ich allein hin aber nun ja.
Ist es noch möglich in der tabelle "druckvorbereitung" die zelle o7 auszufüllen?
Am ende möchte ich gern das Formblatt als Seriendruck mit den Daten aus Druckvorbereitung ausfüllen und jeweils drucken.
Dazu habe ich schon ein Macro gefunden nur leider bekomme ich die Feldzuordnung nicht allein hin.
Kann da jemand helfen?
Die Beispielmappe: https://www.herber.de/bbs/user/94567.xlsx
Public Sub Seriendruck() For a = 1 To Sheets("adr").Cells(1, 1).End(xlDown).Row If CStr(Sheets("adr").Cells(a, 4)) = "x" Then If CStr(Sheets("adr").Cells(a, 3)) = "m" Then Sheets("form").Cells(1, 2).Value = "Herrn" Else: Sheets("form").Cells(1, 2).Value = "Frau" End If Sheets("form").Cells(1, 3).Value = CStr(Sheets("adr").Cells(a, 2)) Sheets("form").Cells(1, 4).Value = CStr(Sheets("adr").Cells(a, 1)) End If Sheets("form").Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next a End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread