Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Öffnen der Tabelle Datum testen

Beim Öffnen der Tabelle Datum testen
09.07.2008 12:54:21
Johannes
Hallo Ihr Excel-Profis,
Als erstes möchte ich Euch allen herzlich danken (inkl. Hans Herber), das eine solche wunderbare Einrichtung wie das Forum geschaffen hat, bzw. dieses auch mit Material füllen.
in der Arbeitsmappe Monatsrapporte.xls befindet sich die Tabelle Tabellendefinition.
Im Feld E2 steht dort ein Datum (z.b. 1.6.08).
Ich möchte nun beim ÖFFNEN der Tabelle das Feld E2 der Tabellendefinition testen
und wenn das Datum (1.6.08) älter als 20 Tage (Vergleich zu Heute) ist eine Meldung anzeigen!
Danke im Voraus für einen Tipp!
Jonhannes

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

Betreff
Datum
Anwender
Anzeige
AW: Beim Öffnen der Tabelle Datum testen
09.07.2008 13:11:46
stormy_weathers
Hallo Johannes,
versuchs mal mit:
1. Datum aus zelle auslesen in Variable "temp_date"
2. if temp_date kleiner (das mathematische Zeichen nimmt er hier im Text nicht) date-20 then
3. meldung
4. else
5. ansonsten mach das...
Gruß
stormy

Beim Öffnen der Tabelle Datum testen
09.07.2008 13:17:35
Markus
Hallo Stormy,
danke, diese Lösung ist mir schon klar,
aber wie bringe ich das Datum von E2 und Heute() in die Variable.
Den Rest kann ich selbst programmieren!
Danke
Johannes

Beim Öffnen der Tabelle Datum testen
09.07.2008 13:17:00
Markus
Hallo Stormy,
danke, diese Lösung ist mir schon klar,
aber wie bringe ich das Datum von E2 und Heute() in die Variable.
Den Rest kann ich selbst programmieren!
Danke
Johannes

Anzeige
AW: Beim Öffnen der Tabelle Datum testen
09.07.2008 14:29:19
Hoffi
Hallo,
Das hat stormy doch geschrieben!!

Sub TT()
Dim tmpDate As String
Dim tmpDate2 As Date
tmpDate = Cells(1, 1).Value 'Zelle A1, anpassen
tmpDate2 = Date - 20
If tmpDate


Grüße
Hoffi

AW: Beim Öffnen der Tabelle Datum testen
09.07.2008 14:47:00
Hoffi
Hallo nochmal,
nachm 3. Mal lesen deines Threads habe ich es glaub ich erst richtig verstanden.

Private Sub Workbook_Open()
Dim tmpDate As Date
Dim tmpDate2 As Date
tmpDate = Cells(2, 5).Value
tmpDate2 = Date
If tmpDate = tmpDate2 - 20 Then
MsgBox "Datum ist genau 20 Tage kleiner", 64, "Achtung"
Exit Sub
Else
MsgBox "Datum ist " & tmpDate2 - tmpDate & " Tage kleiner", 64, "Achtung"
End If
End Sub


Beim Öffnen der Datei wird das Datum aus E2 in die Variable tempDate gelesen.
Das heutige Datum wird in die Variable tempDate2 geschrieben.
Jetzt wird geprüft ob das Datum in E2 = dem Datum Heute-20 ist.
Wenn ja, dann Msgbox stimmt, wenn nein, dann Msgbox wieviel Tage Unterschied zwischen dem Datum
von Heute und dem Datum aus E2 ist.
Ich hoffe ich hab Dich nun richtig verstanden.
Grüße
Hoffi

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige