Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1240to1244
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

Kalenderwoche | Herbers Excel-Forum

Kalenderwoche
19.12.2011 09:58:15
PayrHeinz

hallo excelfans!
ich hätte betreffend kalenderwoche ein anliegen, welches im arvchiv nicht wirklich vorhanden ist.
ich möchte dass der user in einem uf ein datum eingibt und als antwort erhält er die information, welche kalenderwoche das ist.
mit schönen grüßen aus dem winterlichen tirol
heinz

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche
19.12.2011 10:18:22
Hi,
keine Profi-Lösung, aber als VBA bescheiden könnte man es so machen:
Du schreibst das datum aus dem UF in eine Zelle, daneben ermittelst Du die KW
und schreibst diese Zelle in das UF zurück.
Gruß
robert
AW: Kalenderwoche
19.12.2011 10:20:38
PayrHeinz
danke für den tip.
aber meine vba kenntnisse sind damit schon überfordert.
hätte da jemand schon was fertiges zum umbauen ohne dass ich ihn damit zulange beschäftige
lg
heinz
AW: Kalenderwoche
19.12.2011 10:20:49
ing.grohn
Hallo Heinz,
die Kalenederwoche gibts mit sicherheit auch im Archiv!

Function kalenderwoche_din(Datum As Date) As Integer
''von Christoph Kremer, Aachen
'Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
kalenderwoche_din = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

Mit freundlichen Grüßen und frohe Weihnachten
Albrecht
Anzeige
AW: Kalenderwoche
19.12.2011 10:20:55
ing.grohn
Hallo Heinz,
die Kalenederwoche gibts mit sicherheit auch im Archiv!

Function kalenderwoche_din(Datum As Date) As Integer
''von Christoph Kremer, Aachen
'Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
kalenderwoche_din = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

Mit freundlichen Grüßen und frohe Weihnachten
Albrecht
AW: Kalenderwoche
19.12.2011 10:22:30
Heinz H.
Hallo Namensvetter
Auf der HP von Hajo,findest du einige Vorlagen.
http://hajo-excel.de/vba_userform.htm
Gruß
Heinz H.
Anzeige
AW: Kalenderwoche
19.12.2011 11:53:35
PayrHeinz
hallo
danke für den link. hab auch was passendes gefunden.
jetzt hab ich nur noch eine frage:
ich hab euch die datei hochgeladen:
mit dem userform kann ich kalenderwochen auswählen. jetzt hab ich für jede kalenderwoche ein tabellenblatt. wie kann ich das verbinden, dass er mir nach auswahl dieser KW gleich in das richtige tabellenblatt springt.
lg
heinz
https://www.herber.de/bbs/user/78040.xlsm
AW: Kalenderwoche
19.12.2011 12:12:36
Reinhard
Hallo Heinz,
Worksheets("KW " & ComboBox1.Value).Activate
unten in den Click-Code.
Gruß
Reinhard
Anzeige
AW: Kalenderwoche
19.12.2011 16:03:04
lou38
Hallo Heinz
Leider weiss ich nicht, was ein uf ist. Die von dir gesuchte Information kann mit einer normalen Excelformel berechnet werden.
In A1 steht das von dir erwähnte Datum
In A2 steht die Formel:
=KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2));1;-10))/7)
Gruss
Louis

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige