Thema Datum  Von Nutzer Rating
Antwort
Rot Funktion anwenden
 29.05.2020 11:14:16 Marc
NotSolved
29.05.2020 11:18:37 Gast44405
NotSolved
29.05.2020 11:22:52 Gast4532
NotSolved
29.05.2020 15:06:46 Gast1930
NotSolved
29.05.2020 15:07:19 Gast64353
NotSolved
29.05.2020 11:39:26 Gast14235
NotSolved
29.05.2020 11:48:33 Gast25600
NotSolved
29.05.2020 17:29:23 Gast82649
NotSolved
29.05.2020 20:21:36 Gast2654
NotSolved
30.05.2020 07:47:42 RPP63
NotSolved
30.05.2020 17:53:30 Gast74332
NotSolved

Ansicht des Beitrags:
Von:
Marc		 Datum:
29.05.2020 11:14:16		 Views:
1076		 Rating:
     
Antwort:
  Ja
Thema:
Funktion anwenden

Hi Community


Ich habe eine tolle Funktion gefunden für die Berechnung der Kalenderwoche per VBA:

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


Zu doof, dass ich nicht mal weiss, wie ich diese Funktion dann im Makro aufrufe. Mit einem Input Dialog übertrage ich das Startdatum in eine Variable d. Wie übertrage ich mittels der Funktion die Kalenderwoche in eine Variable w?

Ich danke jetzt schon für euren Input

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Funktion anwenden
 29.05.2020 11:14:16 Marc
NotSolved
29.05.2020 11:18:37 Gast44405
NotSolved
29.05.2020 11:22:52 Gast4532
NotSolved
29.05.2020 15:06:46 Gast1930
NotSolved
29.05.2020 15:07:19 Gast64353
NotSolved
29.05.2020 11:39:26 Gast14235
NotSolved
29.05.2020 11:48:33 Gast25600
NotSolved
29.05.2020 17:29:23 Gast82649
NotSolved
29.05.2020 20:21:36 Gast2654
NotSolved
30.05.2020 07:47:42 RPP63
NotSolved
30.05.2020 17:53:30 Gast74332
NotSolved