Funktion behält immer den letzten Wert

Function Monataktiv2016() Dim reihe As Integer Dim AM, Jahresanfang, Jahresende As Date Dim Monat As Integer 'AM enthält das Beginndatum der aktiven ATZ-Zeit reihe = ActiveCell.Row AM = Cells(reihe, 39) Jahresanfang = "01.01.2016" Jahresende = "31.12.2016" If DatePart("yyyy", AM) = DatePart("yyyy", Jahresende) Then Monataktiv2016 = DateDiff("M", Jahresanfang, AM) ElseIf DatePart("yyyy", AM)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function Monataktiv2016() As Long Dim reihe As Integer Dim AM As Date, Jahresanfang As Date, Jahresende As Date Dim Monat As Integer 'AM enthält das Beginndatum der aktiven ATZ-Zeit reihe = Application.Caller.Row AM = Cells(reihe, 39).Value Jahresanfang = "01.01.2016" Jahresende = "31.12.2016" If DatePart("yyyy", AM) = DatePart("yyyy", Jahresende) Then Monataktiv2016 = DateDiff("M", Jahresanfang, AM) ElseIf DatePart("yyyy", AM) < DatePart("yyyy", Jahresende) Then Monataktiv2016 = "" Else Monataktiv2016 = 12 End If End Function

Option Explicit Function Monataktiv2016(ByRef probjRange As Range) As Long Dim reihe As Integer Dim AM As Date, Jahresanfang As Date, Jahresende As Date Dim Monat As Integer 'AM enthält das Beginndatum der aktiven ATZ-Zeit reihe = Application.Caller.Row AM = Cells(reihe, probjRange.Column).Value Jahresanfang = "01.01.2016" Jahresende = "31.12.2016" If DatePart("yyyy", AM) = DatePart("yyyy", Jahresende) Then Monataktiv2016 = DateDiff("M", Jahresanfang, AM) ElseIf DatePart("yyyy", AM) < DatePart("yyyy", Jahresende) Then Monataktiv2016 = "" Else Monataktiv2016 = 12 End If End Function

Hallo Mullit und Controlletti,
ich würde die Funktion in der nachfolgenden Form aufbauen.
Der Wert mit dem Beginndatum der ATZ wird direkt an die Function als Parameter übergeben. Die Jahresdaten als optionale Parameter. So ist die Function auch für weitere Jahre nutzbar.
Bei Änderungen in Spalte AM wird dann auch immer sofort die Formel neu berechnet.
Formelbeispiele:

=ATZ_aktiv_Jahr(AM3;DATUM(JAHR(HEUTE());1;1);DATUM(JAHR(HEUTE());12;31))
=ATZ_aktiv_Jahr(AM4)
=ATZ_aktiv_Jahr(AM5;"2017-01-01";"2017-12-31")

Gruß
Franz

Function ATZ_aktiv_Jahr(Beginn_ATZ As Date, _
Optional Jahresanfang As Date = "2016-01-01", _
Optional Jahresende As Date = "2016-12-31") As Variant
'Funktion berechnet die Anzahl aktive Monate im angegebenen Zeitraum
'Beginn_ATZ = das Beginndatum der aktiven ATZ-Zeit
Dim Monat As Integer
If DatePart("yyyy", Beginn_ATZ) = DatePart("yyyy", Jahresende) Then
ATZ_aktiv_Jahr = DateDiff("M", Jahresanfang, Beginn_ATZ)
ElseIf DatePart("yyyy", Beginn_ATZ)

Beliebteste Forumthreads (12 Monate)

Funktion behält immer den letzten Wert

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread