Gruppe
Funktion
Problem
In Spalte F sollen die summierten Werte des jeweiligen Wochentages aus Spalte E angezeigt werden.
StandardModule: Modul1
Sub ImportCSV()
Dim sPath As String, sFile As String
sPath = ThisWorkbook.Path & "\"
If Day(Date) > 1 Then
sFile = Format(DateSerial(Year(Date), Month(Date), 1), "myyyy") & ".csv"
Else
sFile = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "myyyy") & ".csv"
End If
Workbooks.Open sPath & sFile
End Sub