Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speicherdatum

Speicherdatum
15.05.2003 08:42:28
Pius
Hallo
Mit dem unten aufgeführten Code schreibe ich das Speicherdatum in b1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Tabelle1").Range("b1").Value = Now()
End Sub

wie kann ich veranlassen, dass immer das Datum der Akutellen Woche eingetragen wird oder das Datum vom jeweiligen Montag der Aktuellen Woche.

Gruss Pius

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Speicherdatum
15.05.2003 08:47:34
Bernd Held
Hallo Pius,

über folgende benutzerdefinierte Funktion kannst Du die KAlenderwoche von einem DAtum ermitteln:

Function DINKw(Tag)
DINKw = DatePart("ww", Tag, vbMonday, vbFirstFourDays)
End Function

Aufruf in Zelle:
=DINKw(A1)

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF) unter: http://held-office.de

Re: Speicherdatum
15.05.2003 08:49:55
Holger Levetzow
Worksheets("Tabelle1").Range("b1").Value = Now() - Weekday(Now()) + 2


Holger

Re: Speicherdatum
15.05.2003 10:03:22
Pius
Hallo Holger,
Hallo Bernd

Danke beiden

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige