Office: letzten Werktag ermitteln

Hallo zusammen,

habe folgendes Problem:
Habe ein Workbook mit zwei Sheets, "MainPage" und "Werte". In diesem Workbook sollen Werte aus einer anderen Datei kopiert werden. Diese andere Datei hat folgende Form : NAME_20120629_20120731.xls, also immer der Name und der letzte Werktag vom Vorvormonat bis zum aktuellen Vormonat. Meine Aufgabe ist es ein Macro-Code zu schreiben, welches diesen Vorgang automatisiert. Habe nun fats alles fertig, nur ein Problem: wenn der letzte Werktag ein Samstag oder Sonntag ist, stimmt mein Code nicht mehr.

So schaut der aus :

Sub Dateiöffnen()
Dim curser As Range
Dim reader As Range
Dim path_to_file, file_name As String
Dim datum1 As String
Dim datum2 As String
Dim Name As String

Sheets("MainPage").Select
Set curser = Range("A2")

'open xls Datei, NAME_20120629_20120731.xls

path_to_file = Application.ActiveWorkbook.Path & "\"
datum1 = Format(DateAdd("m", -1, (DateSerial(Year(Date), Month(Date), 0))), "yyyymmdd")
datum2 = Format(DateAdd("m", -2, (DateSerial(Year(Date), Month(Date), 0))), "yyyymmdd")
file_name = "NAME_" & datum2 & "_" & datum1 & ".xls"


Workbooks.Open (path_to_file & file_name)
Sheets("MainPage").Select
End Sub

Kann mir bitte jemand helfen?

:)

 

Hallo Simsima 12,

vielleicht hilft Dir das folgende Beispiel weiter:

Function fLetzterWerktag(m As Byte, y As Integer) Dim TageGesamt As Integer Dim LetzterTag As Date    TageGesamt = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1)    LetzterTag = DateSerial(y, m, TageGesamt)    Select Case Weekday(LetzterTag)       Case 1          fLetzterWerktag = DateAdd("d", -2, LetzterTag)       Case 7          fLetzterWerktag = DateAdd("d", -1, LetzterTag)       Case Else          fLetzterWerktag = LetzterTag    End Select End Function Public Sub Test()    MsgBox Format(fLetzterWerktag(6, 2012), "YYYYMMDD") & "_" & Format(fLetzterWerktag(7, 2012), "YYYYMMDD") End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Gruß Peter

 

Hi,
du kannst auch das mal ausprobieren: Code:

 

Hi Peter,
immer wieder mal erstaunt mich die Nutzung von DateAdd("d",...) für eine IMHO einfache Berechnung.

Was spricht dagegen, statt
fLetzterWerktag = DateAdd("d", -2, LetzterTag)
einfach zu schreiben
fLetzterWerktag = LetzterTag - 2
?

DateAdd führt hier m.E. eher zu einer "Verklärung" des Datums und lenkt davon ab,
dass ein Datum auch einfach eine ganze Zahl ist, mit der man rechnen kann.

Ähnliches gilt für die Berechnung des Vormonats-Letzten: Datum - Day(Datum) reicht völlig aus.

 

Vielen dank für die Hilfe.
Klappt alles.