VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Monatsblätter in Abhängigkeit ihres Namens summieren

Gruppe

UDF

Bereich

Summe

Thema

Monatsblätter in Abhängigkeit ihres Namens summieren

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Summe