Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Wochentagen summieren

Gruppe

SUMMEWENN

Problem

In Spalte F sollen die summierten Werte des jeweiligen Wochentages aus Spalte E angezeigt werden.

Lösung
Formel in Zelle F1: =SUMMEWENN(B:B;E1;C:C)

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