Terminüberwachung

[mellow]

Guten Morgen zusammen,

ich bräuchte mal eure Hilfe....

und zwar geht es um eine Termin überwachung zwecks LKW Wartung und Termine diese sollen in Tabelle1 nur bei Fälligkeit angezeigt werden und die ganzen Daten stehen aber in Tabelle 2

Ich habe mal eine Bespieldatei gemacht.

Es kann auch noch alles anders gestaltet...ist für ein neues Projekt somit kann alles noch angepaßt werden. 

Vielen Dank für eure Hilfe

Gruß mellow

[steve1da]

Hola,

wenn du in die Zellen die Art der Prüfung mit reinschreibst, kann das Datum nur äußerst kompliziert verglichen werden. Einfach wäre es, die Art der Prüfung über die Datumswerte zu schreiben. Außerdem fehlt zu deinen Daten ein händisch eingetragenes Wunschergebnis.

Gruß,
steve1da

[mellow]

Hallo

Oder wäre es möglich, das bei jedem öffnen in Tabelle 1 sich 15 Tage vor dem Aktuelle Datum und 15 Tage nach dem Datum ein Pop up Fenster mit dem fälligen Termin auf geht ?
 Die Daten aus Tabelle 2

Gruß mellow

[Klaus-Dieter]

Hallo,

warum nicht so?

Tabelle2

	A	B	C	D
1	Datum	Art der Prüfung	Fahrzeug	Bemerkung
2	01.06.2020	TÜV	LKW 3	fällig
3	01.11.2020	TÜV	LKW 2	fällig
4	10.11.2020	TÜV	LKW 4	fällig
5	10.12.2020	TÜV	LKW 1	fällig
6	30.12.2020	SP	LKW 4
7	01.01.2021	SP	LKW 3
8	01.02.2021	SP	LKW 2
9	01.05.2021	Tachoprüfung	LKW 1
10	01.05.2021	Tachoprüfung	LKW 2
11	01.05.2021	Tachoprüfung	LKW 3
12	01.05.2021	Tachoprüfung	LKW 4
13	10.05.2021	SP	LKW 1

Formeln der Tabelle

Zelle Formel D2 =WENN(HEUTE()>=A2-15;"fällig";"") D3 =WENN(HEUTE()>=A3-15;"fällig";"") D4 =WENN(HEUTE()>=A4-15;"fällig";"") D5 =WENN(HEUTE()>=A5-15;"fällig";"") D6 =WENN(HEUTE()>=A6-15;"fällig";"") D7 =WENN(HEUTE()>=A7-15;"fällig";"") D8 =WENN(HEUTE()>=A8-15;"fällig";"") D9 =WENN(HEUTE()>=A9-15;"fällig";"") D10 =WENN(HEUTE()>=A10-15;"fällig";"") D11 =WENN(HEUTE()>=A11-15;"fällig";"") D12 =WENN(HEUTE()>=A12-15;"fällig";"") D13 =WENN(HEUTE()>=A13-15;"fällig";"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[Rudi'S]

Hallo,

vielleicht hilft dieser etwas laienhafte Vorschlag.
Da der genaue Aufbau der gesamten Formalie nicht bekannt ist, also erstmal hiermit Vorlieb nehmen.

Gruß Rudi

[mellow]

Guten Morgen ,

das mit der Wenn Formel ist ja schonmal eine schöne Lösung ,aber irgendwie bringt mich das auch nicht wirklich weiter.
Ich müßte dann weiterhin immer in das Tabellenblatt gehen und gucken was fällig ist.

Das da ganze Projekt aus mehreren Tabellenbätter besteht , sollten Kerninformation zentral auf dem Tabellenblatt 1 angezeigt werden.

Trozdem schon mal vielen Dank

Gruß Mellow

[steve1da]

Hola,

Das da ganze Projekt aus mehreren Tabellenbätter besteht

Im Eingangspost ist von 2 Blättern die Rede. Es gibt also mehr als 2 Blätter?

Gruß,
steve1da

[Gast 123]

Hallo

ich habe mal flüchtig draufgeschaut. Hier waere der Löschen Code zu aendern, amit nur die Spalten I bis L gelöscht werden!
EntireRow bedeutet = ganze Zeile,  Resize(1,4) erweitert den Bereich ab Spalte I um vier Stellen nach Rechts.

Cells(lRow, 9).EntireRow.Delete xlShiftUp       aendern in:
Cells(lRow, 9).Resize(1, 4).Delete xlShiftUp

mfg  Gast 123

[Klaus-Dieter]

Hallo,

das mit der Wenn Formel ist ja schonmal eine schöne Lösung ,aber irgendwie bringt mich das auch nicht wirklich weiter.

Ich müßte dann weiterhin immer in das Tabellenblatt gehen und gucken was fällig ist.

nicht unbedingt. Wenn es ein Makro sein darf, könnten man das so lösen, dass beim Öffnen der Datei eine MsgBox die fälligen Fahrzeuge anzeigt.

[mellow]

Wenn es ein Makro sein darf, könnten man das so lösen, dass beim Öffnen der Datei eine MsgBox die fälligen Fahrzeuge anzeigt.

Danke euch allen schon mal

Ja das würde mir vollkommen reichen. :)

Gruß mellow