Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tage einer Kalenderwoche schreiben

Tage einer Kalenderwoche schreiben
30.01.2004 11:41:20
Mike E.
Hallo zusammen,
Weiß zufällig jemand, wie ich z.B. per MsgBox die einzelnen Tage einer KW auflisten lassen kann?
Bsp:
Ich Frage mittels InputBox die Kalenderwoche ab. Im Anschluss daran erscheinen dann sieben MsgBox(en) mit den einzelnen Tagen:
Dim Woche as Date
Woche = InputBox("Bitte Woche angeben:")
....und dann?
Vielen Dank für eure Mühe und nette Grüße
Mike

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tage einer Kalenderwoche schreiben
30.01.2004 11:58:44
Worti
Hallo Mike,
mit folgendem Makro:

Sub MontagausKW()
Dim varKW As Variant
Dim intKW As Integer
Dim intP As Integer
Dim intJahr As Integer
Dim intDinKW As Integer
Dim intWochentag As Integer
Dim intAnzTage As Integer
Dim datErsterTag As Date
Dim datStartdatum As Date
varKW = InputBox("KW/Jahr eingeben")
intP = InStr(1, varKW, "/")
intKW = Mid(varKW, 1, intP - 1)
intJahr = Mid(varKW, intP + 1, Len(varKW))
intAnzTage = 7 * intKW
datErsterTag = DateSerial(intJahr, 1, 1)
datStartdatum = datErsterTag + intAnzTage
intWochentag = WeekDay(datStartdatum)
intDinKW = fktRealKW(datStartdatum)
Do Until intWochentag = 2 And intDinKW = intKW
datStartdatum = datStartdatum - 1
intWochentag = WeekDay(datStartdatum)
intDinKW = fktRealKW(datStartdatum)
Loop
MsgBox "Der Montag in KW " & _
varKW & " ist der " & datStartdatum
MsgBox "Der Dienstag in KW " & _
varKW & " ist der " & datStartdatum + 1
'usw...
End Sub
Private Function fktRealKW(d As Date)
fktRealKW = DatePart("ww", d, vbMonday, vbFirstFourDays)
End Function

Die Kalenderwoche wird im Format KW/JJJJ erwartet.
Die Funktion fktRealKW ist (glaig ich) von wwr
Worti
Anzeige

315 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
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 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
Kalenderwoche in Datum ??????
ReSt

Hallo
Ich möchte gerne jeweils im MOntagsdatum die Kalenderwoche integriert haben. Also in der gleichen Zelle. Leider habe ich bis jetzt noch keine Lösung gefunden. Entweder hatte ich Probleme mit dem Format oder ich bekam einen Zirkelbezug.
Villeicht kann mir jemand weiterhelfen ? Dank...
19.10.2008 11:49:00
Thread-ID: 1017441
9 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge

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
2
5
3
6
3
8
4
3
1
5
7
2
4
11
6
7
2
4
10
13
14
1
5
4