Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Anzeige aktuelle Kalenderwoche in TextBox
30.01.2005 23:10:17
Xelleron
Guten Abend,
kann mir jmd helfen. Ich möchte in einer TextBox die aktuelle Kalenderwoche anzeigen lassen. Für das Datum weiß ich wie, aber wie lautet der Begriff für KW
Für Datum lautet es:

Private Sub UserForm_Activate()
TextBox1.Value = Date
End Sub

Gruß
Xelleron

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeige aktuelle Kalenderwoche in TextBox
30.01.2005 23:28:51
Xelleron
Vielen Dank,
nur wenn ich den Code angebe, dann wird mir KW 6 angezeigt, und es ist nächste Woche erst KW5
TextBox2 = "KW " & DatePart("ww", CDate(TextBox1.Value)) & " " & CStr(Month(CDate(TextBox1.Value)) \ 3) & ". Quartal"
Wo liegt der fehler?
Gruß Xelleron
AW: Anzeige aktuelle Kalenderwoche in TextBox
PeterW
Hallo Dennis,
kopiere in ein allgemeines Modul die Funktion zur Berechnung der Kalenderwoche aus einem Datum
Function KalenderwocheNachDin(dat As Date) As Integer
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
a = KalenderwocheNachDin(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 a = 1
End If
KalenderwocheNachDin = a
End Function
Ändere dann deinen Code in

Private Sub UserForm_Activate()
TextBox1.Value = KalenderwocheNachDin(Date)
End Sub

Gruß
Peter
Anzeige
Danke Peter
Xelleron
jetzt hat es geklappt

63 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige