Office: (Office 2010) VBA: Montags das Datum vom vorherigen Freitag ermitteln?

lekcin · 4. August 2014

Hallo,

ich ermittle via VBA immer das Datum von gestern, wobei immer nur die Tage von Montag bis Freitag berücksichtigt werden sollem: Bsp: Date() - 1

Das funktioniert natürlich nicht wenn ich das Makro an einem Sonntag oder Montag benutze.

Wie muss der VBA Code lauten damit mir am Montag das Datum vom vorherigen Freitag als Wert zurückgegeben wird?

Vielen Dank!!!!

LN

:)

Hajo_Zi · 5. August 2014

Nur wenige sehen Deinen Code.

Erich G. · 5. August 2014

Hi,
probier mal Code:

Function VortagMoFr(datD As Date) As Date
VortagMoFr = datD - 1 - Application.Max(0, (datD - 3) Mod 7 - 4)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Als Formel in der Tabelle:

=A1-1-MAX(;REST(A1-3;7)-4)

amicro2000 · 5. August 2014

Hallo LN,

Nimm diese Function:

Code:

Public Function Gestriger_tag(Datum As Date) As Date
If Weekday(Datum, vbMonday) > 1 And Weekday(Datum, vbMonday) < 7 Then Gestriger_tag = Datum - 1
If Weekday(Datum, vbMonday) = 7 Then Gestriger_tag = Datum - 2
If Weekday(Datum, vbMonday) = 1 Then Gestriger_tag = Datum - 3
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

einfach in ein Modul einfügen.

Du kannst sie dann als Formel in der Excel-Mappe hernehmen oder im code verwenden.

EarlFred · 5. August 2014

Hallo LN,

als Formel (da Feiertage nicht berücksichtigt werden sollen):
Code:

=MAX((REST(HEUTE()-{1.2.3};7)>1)*(HEUTE()-{1.2.3}))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Als VBA-Code und mit flexiblem Datum:
Code:

Dim d As Date
d = Evaluate("=MAX((MOD(" & CLng(Date) & "-{1;2;3},7)>1)*(" & CLng(Date) & "-{1;2;3}))")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

BrunMi · 5. August 2014

Hallo,

Ich häts so gemacht:

Code:

Sub Wochentage()
Dim Datum As Date
Dim Wochentag As Integer

Datum = "02.08.2014"
Wochentag = Weekday(Datum, vbMonday)

If Wochentag = 1 Then
Datum = Datum - 3
ElseIf Wochentag = 7 Then
Datum = Datum - 2
Else
Datum = Datum - 1
End If

MsgBox Datum
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG
BrunMi

lekcin · 5. August 2014

Hallo,

nachgereicht ... mein Code:

Code:

Sub Datum()
Dim d As Date
d = Date - 1
MsgBox d

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lekcin · 5. August 2014

Danke an alle, ich nehme den Vorschalg von EarlFred!

EarlFred · 5. August 2014

Hallo LN,

Erichs Vorschlag ist viel eleganter, freue mich aber natürlich darüber, dass Dir meine Lösung auch gefällt und über die nette Rückmeldung.

Grüße
EarlFred

Office: (Office 2010) VBA: Montags das Datum vom vorherigen Freitag ermitteln?

VBA: Montags das Datum vom vorherigen Freitag ermitteln?

VBA: Montags das Datum vom vorherigen Freitag ermitteln?

VBA: Montags das Datum vom vorherigen Freitag ermitteln?

VBA: Montags das Datum vom vorherigen Freitag ermitteln?

VBA: Montags das Datum vom vorherigen Freitag ermitteln? - Similar Threads - VBA Montags Datum

Textteile aus Zelle mit mehreren Absätzen

Aufrufen Datei aus SharePoint per VBA

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

VBA Zeilen kopieren mit Bedingung

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Laufzeitfehler 9 VBA

Excel VBA Spalten mit Ordnerinhalt vergleichen