VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einem Datum eine bestimmte Anzahl von Jahren hinzufügen

Gruppe

Funktion

Bereich

DatumUndZeit

Thema

Einem Datum eine bestimmte Anzahl von Jahren hinzufügen

Problem

Dem Datum in Zelle A2 soll die Anzahl der Jahre aus Zelle B2 zugefügt werden.

Lösung

Folgende Formel: =DATUM(JAHR(A2)+B2;MONAT(A2);TAG(A2))




StandardModule: Modul1

Sub SplitArray()
   Dim arrBasis(1 To 100) As Integer
   Dim arrSplit(1 To 25, 1 To 4) As Integer
   Dim iCounter As Integer, iAct As Integer
   For iCounter = 1 To 100
      arrBasis(iCounter) = iCounter
   Next iCounter
   For iCounter = 1 To 25
      For iAct = 1 To 4
         arrSplit(iCounter, iAct) = arrBasis(iCounter * 4 - (4 - iAct))
      Next iAct
   Next iCounter
   Range("A1:D25").Value = arrSplit
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und DatumUndZeit