Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Monatsblätter in Abhängigkeit ihres Namens summieren

Gruppe

Summe

Problem

Es sollen Monatsblätter in Abhängigkeit ihres Namens zu einem Start- und einem Enddatum summiert werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function DreiDSum( _
   sWksA As String, _
   sWksB As String, _
   sRng As String) _
   As Double
   Dim wks As Worksheet
   Dim dValue As Double
   Dim bln As Boolean
   For Each wks In Worksheets
      If wks.Name = sWksA Then bln = True
      If bln Then
         dValue = dValue + WorksheetFunction.Sum(wks.Range(sRng))
      End If
      If wks.Name = sWksB Then bln = False
   Next wks
   DreiDSum = dValue
End Function