Anzeige
Archiv - Navigation
1276to1280
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
Inhaltsverzeichnis

In Userform Lable Jahr / Monat und Tag anzeigen

In Userform Lable Jahr / Monat und Tag anzeigen
snore
Hallo Excelprofis,
habe nochmal eine problem.
ich habe eine Userform mit 4 lable
in das 1 label möchte ich aus dem aktuellen datum das Jahr anzeigen z.B. 2012
im 2 label die Monat z.B. Sep_12
im 3 label die KW z.B. KW_34/12
im 4 Label die Datwert z.B. 41566
wie muss ich das machen ?
bitte um eure Unterstützung, Danke
Gruß
snore

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

Betreff
Benutzer
Anzeige
AW: In Userform Lable Jahr / Monat und Tag anzeigen
16.09.2012 18:52:10
Josef

Hallo Snore,
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Activate()
  Label1 = Year(Date)
  Label2 = Format(Date, "MMM_yy")
  Label3 = "KW_" & DINKwoche(Date) & "/" & Format(Date, "yy")
  Label4 = Clng(Date)
End Sub


Function DINKwoche(ByVal Datum As Date) As Long
  Dim tmp As Date
  tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
  DINKwoche = (Fix(Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7) \ 7) + 1
End Function



« Gruß Sepp »

Anzeige
Danke Super
16.09.2012 19:50:02
snore
Hallo Sepp,
Danke danke danke
genau so wie ich es gebraucht habe
Gruß
snore

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige