Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Nachricht bei bestimmtem Datum

Forumthread: Automatische Nachricht bei bestimmtem Datum

Automatische Nachricht bei bestimmtem Datum
18.05.2006 07:11:32
Thomas
Hallo Leute,
ich würde gerne eine Tabelle erstellen in der verschiedene Datums drinstehen.
Nun möchte ich wenn es noch 2 Wochen zum Datum hin ist eine Nachricht erhalten, ohne das ich jeden Tag die Tabelle öffnen muss. Ab diesen 2 Wochen soll jeden Tag bis zum Datum das in der Zelle vermerkt ist eine Nachricht aufspringen.
Das er mir in der Tabelle immer einen anderen Text in eine Zelle schreibt wenn es 2 Wochen vor dem Termin ist hab ich ja soweit schon hinbekommen, aber das mit der Nachricht wenn die Tabelle geschlossen bleibt ist mir ein Rätsel. Wie diese Nachricht erfolgen kann ist mir egal.
Gruß Thomas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Nachricht bei bestimmtem Datum
18.05.2006 09:34:46
UweD
Hallo
hier ein Beispiel.
Makro muß in die Personl.xls in den Bereich "DieseArbeitsmappe"

Private Sub Workbook_Open()
'Wert lesen aus geschlossener Mappe
Dim wb As Workbook, Wert, Warn%, D%
Warn = 14 'Tage vorher
Set wb = GetObject("C:\Temp\test.xls")
Wert = wb.Worksheets("Tabelle1").Cells(1, 1) 'Ort des Prüfwertes
If Wert = "" Then
MsgBox "Leer"
Else
D = Wert - Date
If D <= Warn Then
MsgBox "nur noch " & D & " Tage"
End If
End If
wb.Close SaveChanges:=True
End Sub

Datum wird aus (Beispiel) c:\Temp\Test.xls, Tabelle1, A1 gelesen...
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Automatische Nachricht bei bestimmtem Datum
18.05.2006 11:12:19
Thomas
Hallo Uwe,
danke für deine Antwort aber leider ist mir das zu hoch. Das was Du da geschrieben hast ist für mich völliges Neuland. Kannst Du mir das bitte aufschlüsseln wie ich das hinbekomme?
Gruß Thomas
AW: Automatische Nachricht bei bestimmtem Datum
18.05.2006 11:36:06
UweD
Hallo
Die personl.xls ist eine Datei, die immer mit Excelstart geöffnet wird.
Hier können Makros abgelegt werden, die für alle möglichen Dateien verwendet werden sollen.
Makros im Bereich "DieseArbeitsmappe" kommt eine besondere Bedeutung zu (starten automatisch, läufen ab vor Speichern, vor Drucken, beim Schließen usw.)
- Alt + F11 öffnet den VB Editor.
- sieht so ähnlich aus
Userbild
- links den Bereich Personl.xls suchen
- MS Excel Objekte öffnen, dort dann doppelklick auf DieseArbeitsmappe
- in das rechte Fenster dann den Code reinkopieren.
Wenn nun Excel geöffnet wird, wird die Personl.xls Datei verdeckt mitgeöffnet, dort wird dann das "Workbook_Open" Makro (das was du gerade da reingeschrieben hast) ausgeführt.
Da wiederum steht das drin, was du wolltest.
In einer Datei in einer Zelle steht ein Datum (im Beispiel in C:\temp\Test.xls auf Blatt Tabelle1 in Zelle A1)
Dieses Datum wird mit heute verglichen.
Wenn es nur noch 14 tage oder weniger sind (Warn=14), kommt die Meldung. Sonst nichts
OK?
Gruß UweD
Anzeige
AW: Automatische Nachricht bei bestimmtem Datum
18.05.2006 18:02:22
Thomas
Hallo Uwe,
also das habe ich nach langem hinbekommen. Allerdings wollte ich das mir das Fenster aufspringt ohne das ich die Tabelle öffnen muss. Und wichtig ist auch das diese Funktion sich auf sehr viele Datums in einer Exceltabelle auswirken muss.
Man muss sich das wie eine Tabelle für TÜV Termine vorstellen. Ich habe zum Beispiel 150 Autos und alle müssen unterschiedlich zum TÜV. Das ich aber keinen Termin vergesse möchte ich sozusagen diese Funktion ohne jeden Tag die Tabelle zu öffnen.
Griasla Thomas
Anzeige
AW: Automatische Nachricht bei bestimmtem Datum
19.05.2006 09:07:56
UweD
Hallo
Bei der Lösung von gestern muß die Datei NICHT geöffnet werden. Das macht Excel im Hintergrund.
Excel selbst mußt du aber schon starten, aber das kann irgendeine Datei sein.
Ansonst muß du dir Timer im Kalender setzen. (Du bist ja auch hier im ExcelForum)
Das mit den Tüvdaten geht aber auch so.
 
 AB
1TüvterminFahrzeug
220.05.2006B-AB 001
302.06.2006HH-OB 123
418.06.2006S-OO 999
 

in DieseArbeitsmappe:
Private Sub Workbook_Open()
On Error GoTo Fehler
Dim SP%, LR&, TB1, i&, Warn%, Tuev As Date, D%, KFZ$
Warn = 14 'Tage vorher warnen
Set TB1 = Sheets("Tabelle1")
SP = 1 'Spalte A Tüvdaten
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR
Tuev = TB1.Cells(i, SP)
KFZ = TB1.Cells(i, SP + 1)
D = Tuev - Date
If D <= Warn Then
MsgBox "Fahrzeug: " & KFZ & " hat nur noch " & D & " Tage Tüv."
End If
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
ende
End Sub

in Modul:
Sub ende()
Dim WsShell, intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Datei wird in 2 sec automatisch geschlossen!!!" & vbLf _
& "Sonst Abbrechen!", 2, "Huhu ...", 1 + 48)
' Die 2 in der letzten Zeile gibt die Dauer der Öffnung an.
If intText <> 2 Then
Application.Quit
End If
End Sub

hier die kompl. Musterdatei:
https://www.herber.de/bbs/user/33772.xls
diese Datei in den Autostart-Ordner von Windows ziehen.
Wird dann automatisch geöffnet und die Daten geprüft. Danach wird sie auch wieder selbst geschlossen. (mit Notaus)
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
;

Forumthreads zu verwandten Themen

Beitrag sortieren 2 Datums Uhrzeit werte VBA
chris

Hallo zusammen,
habe zwar schon einen thread offen zu dem Thema hier der Link.Wollte in nur vorschieben weil ich am besten noch heute eine Antwort benötige da ich sonst nicht weiter machen kann mit meiner datei.
Würde mich freuen wenn mir jemand helfen könnte.
Danke rudi schon mal f...
08.08.2008 09:33:49
Thread-ID: 1000181
5 Beiträge
mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Sortieren nach Datum
Carolina

Hallo alle zusammen,
will ne Tabelle nach Datum sortieren, leider sortiert er nur Daten zwischen dem 1.1.1900 und dem 31.12.2029
Kann man das irgendwie änden? Es stehen auch Daten aus dem 19. Jahrhundert drin.
Schöne Grüße aus Rom
Carolina
24.09.2008 09:37:02
Thread-ID: 1011947
2 Beiträge
Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Anzeige
Automatische Eintragung nach Datumseingabe
Hans

Hallo
Ich möchte in einer Zelle ein Datum eingeben. In einem Informationsblock soll nun automatisch ein Kreuz oder eine Zahl angezeigt werdenob es sich um ein Wochentag/Wochenende/ Feiertag oder Ferientag ( NRW ) handelt.
Ist so etwas unkompliziert möglich. Ich wäre für Eure Hilfe sehr...
31.03.2009 19:01:20
Thread-ID: 1065740
5 Beiträge
Spalte nach Datum formatieren
Mandy

Hallo
ich möchte eine Spalte per Makro formatieren, dass das Ergebnis nachher so aussieht: 2009-04-01
(JJJJ-MM-TT)
Dazu habe ich mit dem Makrorecorder folgendes aufgezeichnet:
Worksheets("Test").Range("Q10:Q1111").Select
Selection.NumberFormat = "yyyy-mm-dd"
Nach dem A...
02.04.2009 10:14:21
Thread-ID: 1066221
4 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Sortieren nach Datum
Andreas

Hallo Forum,
ich habe eine Tabelle in der in Spalte A nur Datumswerte stehen, in B und C die dazugehörigen Aufgaben.
nun möchte ich das immer das nächste aktuelle datum in der ersten zeile steht.
ist ein Datum vorbei soll es sich ans Ende der Tabelle stellen.
Vielen Dank im vorr...
15.08.2009 18:58:53
Thread-ID: 1096168
3 Beiträge
Tabellen nach Inhalt von Zelle A2 sortieren
Zelle

Liebes Forum
Ich möchte gerne eine grosse Anzahl Tabellen nach der Zelle "A2" sortieren. Auf http://www.schmittis-page.de/index.html?/excel/vba/t56.htm habe ich einen Code gefunden, der die Sortierung anhand der Tabellennamen vornimmt. Ich habe nun .name mit .Cells("A2").Value ersetzt.
...
22.08.2009 16:14:58
Thread-ID: 1097948
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige