Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum anhand der KW in VBA errechnen

Datum anhand der KW in VBA errechnen
06.06.2006 07:39:16
Thomas
Hallo
Ich möchte in VBA das Datum von Montag und von Sonntag an hand der KW berechnen.
Wie muß ich das machen?
Gruß Thomas

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
anhand von Formel wüsst ich ...
06.06.2006 07:50:51
Formel
http://www.excelformeln.de/formeln.html?welcher=186
Moin Thomas,
die Jungs von excelformeln wissen, wie das mit Bordmitteln geht. Ich lass die Frage aber offen, da nicht mit VBA gelöst. Notfalls schreib o.g. Formel in eine versteckte Tabelle und zieh dir von dort das Ergebniss.
Gruß,
Klaus M.vdT.
AW: anhand von Formel wüsst ich ...
06.06.2006 09:20:32
Formel
Hallo Thomas,
wie wärs mit der VBA-Variante der Excelformel aus
http://www.excelformeln.de/formeln.html?welcher=186 
Function DatInWoche(iJahr As Integer, iKW As Integer, iWT As Integer)
'=("4.1."&A2)+A1*7-7-REST("2.1."&A2;7)
DatInWoche = DateValue("4.1." & iJahr) + iKW * 7 - 8 - DateValue("2.1." & iJahr) Mod 7 + iWT
End Function

Mit DatInWoche(2006, 5, 1) bekommst du den Montag der 5. KW in 2006,
mit DatInWoche(2006, 5, 7) ensprechend den Sonntag danach.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Datum anhand der KW in VBA errechnen
06.06.2006 08:37:41
Luschi
Hallo Thomas,
so geht's in Vba: 
Public Function Kalenderwoche(Datum As Date)
Kalenderwoche = Format(Datum, "ww", 2, 2)
End Function
Aufruf:
MsgBox (Kalenderwoche(Date))
Gruß von Luschi
aus klein-Paris
PS: übrigens 1 Tipp von einem Access-Forum
(http://www.access-paradies.de/tipps/kalenderwoche_aus_datum_ermitteln.php)
AW: Datum anhand der KW in VBA errechnen
06.06.2006 10:25:45
Luschi
Hallo Erich, 
Public Function Kalenderwoche(Datum As Date)
Kalenderwoche = Format(Datum, "ww", vbMonday, vbFirstFourDays)
End Function
Sub test()
MsgBox Kalenderwoche(CVDate("31.12.2007"))
End Sub
ergibt bei mit WinXP & ExcelXP die Kalenderwoche 53.
Gruß von Luschi
aus klein-Paris
AW: Datum anhand der KW in VBA errechnen
06.06.2006 10:37:24
Erich
Hallo Luschi,
das ist nicht weiter verwunderlich:
Auch Kalenderwoche(CVDate("31.12.2007")) rechnet falsch.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Datum anhand der KW in VBA errechnen
06.06.2006 10:43:27
Erich
Hallo nochmal,
'tschuldigung, oben hatte ichs grad vertauscht:
Für den 31.12.2007 ist die richtige KW=1, nicht 53!
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Datum anhand der KW in VBA errechnen
06.06.2006 11:23:08
Luschi
Hallo Erich,
das kann nicht sein. Lt. WinXP-Kalender ist der 31.12.2007 ein Montag. Da nach DIN aber die 1. Woche im neuen Jahr erst dann zählt, wenn die Woche 4 Tage des neuen Jahres zählt, liegt der 31.12.2007 noch in der 53. Woche.
Schau Dir mal die Parameter in der Funktion Kalenderwoche an.
Gruß von Luschi
aus klein-Paris
AW: Datum anhand der KW in VBA errechnen
06.06.2006 12:01:28
Erich
Hallo Luschi,
schau mal bei
http://de.wikipedia.org/wiki/Woche#Kalenderwoche
Da findest du auch als Beispiel den 29.12.2003.
Der gehört zur 1. Woche des Jahres 2004.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Kalenderwoche nach DIN
06.06.2006 12:11:02
Erich
Hallo Luschi,
noch ein Link dazu:
http://www.cabeweb.de/fun/din1355.htm
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Sorry, hast natürlich recht!
06.06.2006 13:25:47
Luschi
Hallo Erich,
bei mir ist's heute ein bischen stressig; aber es ist gut zu wissen, daß Andere meine Fehler geraderücken.
Gruß von Luschi
aus klein-Paris
AW: natürlich? Dein Fehler?
06.06.2006 20:13:26
Erich
Hallo Luschi,
so natürlich ist das nicht, so manches Mal liege ich auch völlig daneben!
Und: Das war doch nicht dein Fehler - meist kann man sich ja doch auf M$ verlassen.
Aber bei der Kalenderwoche haben sie sich nicht wirklich nach der DIN bzw. EN gerichtet...
Grüße von Erich aus Kamp-Lintfort
AW: Datum anhand der KW in VBA errechnen
06.06.2006 09:51:01
Thomas
Danke, ihr habt mir alle sehr geholfen.
Grtuß Thomas

91 Forumthreads zu ähnlichen Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
KW in Datum
ToMa

Hallo Leute!
Ich habe ein kleines Problem.
in Zelle A1 ist das Jahr (zB: 2008),
in Zelle A2 ist die Kw (zB: 28)
in Zelle C1 möchte ich Datum von Mittwoch dieser (zB: 28) Woche.
in Zelle C2 möchte ich Datum von Freitag dieser (zB: 28) Woche.
mit diese Formeln bekomme ich...
07.10.2008 20:13:00
Thread-ID: 1014809
4 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Anzeige
Was ist dass Es erscheinen merkwürdige Makros ???
juergen

Hallo liebe Excel Gemeinde
Bei mir passiert etwas sehr mekwürdiges.Und zwar
Öffne ich Excel mit leerem Blatt und gehe dann in die VBA Umgebung ist alles sauber.
Öffne Ich die Exceldatei von Hajo.Ziplies "nur_mit_aktivierten_makros_zeit_loeschen.xls"
Und gehe dann auf Makros...
30.03.2009 19:21:05
Thread-ID: 1065401
8 Beiträge
KW und Tag in Datum ausgeben!
lisa

Hallo
Ich habe hier einen Hänger und komme nicht weiter!
In meiner Zelle A1 steht das Datum 01.01.2009 und in B2 die Formel =KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7) und somit eine 1 für die KW1!
Jetzt habe ich in A2 152 stehen, was bedeuten soll, KW15 Tag 2!...
10.06.2009 13:32:56
Thread-ID: 1080458
6 Beiträge
Datum aus Kalenderwoche
Matthias V.

Hallo zusammen,ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.Ich ermittele nun mit:Sub kw()Dim kw As Integerkw = DatePart("...
16.05.2002 16:31:23
Thread-ID: 121427
6 Beiträge
Datum richtig ausgeben in VBA
Stefan

Guten Morgen,
ich habe ein kleines Problem.
Der folgende Befehl .Cells(iCntRows, 28) = Left(.Cells(iCntRows, 8), 10) liefert das Datum zurück, allerdings nicht so, dass ich damit als Datum weiterarbeiten können. Excel denkt, es sei ein textformatiertes Feld.
Wie kann ich daraus ein...
19.10.2011 08:51:55
Thread-ID: 1234448
4 Beiträge
Datum aus Wochentag und KW berechnen
Dietmar

Guten Abend zusammen,
ich tüftele an einer Formel, die mir das Datum der aktuellen Kalenderwoche berechnen soll, wenn der Wochentag in einer Zahlenkette angegeben ist; komme aber nicht drauf.
Also gegeben ist:
A1 = 0223414 (Zahlenkette; relevant ist die zweite Ziffer von rechts, hie...
02.10.2012 21:40:36
Thread-ID: 1280305
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
3
4
2
7
5
5
3
7
12
4
2
2
2
12
7
12
9
7
3
7
4
2
47