Office: Datum auf Jahresanfang setzen

Hallo,

ich habe folgendes Problem:

mit .FormulaLocal = "Afa 01.01.2009"

habe ich bislang den Jahresanfang fix eingesetzt.
Nun muss aber aus den Vorjahren Berechnungen durchführen.

In einer Zelle steht das richtige Jahr (z.B. "28.02.2007"aus Zelle AB2),
wie bekomme ich die letzen 2 Ziffern von "AB2" ausgelesen und in
"Afa 01.01.20 & letzte 2 Ziffer aus AB2"??

Oder geht das noch viel einfacher??

:)

 

Hallo Rudi,

so?

	AB
2	28.02.2008
3	Afa 01.01.2008

AB3 : ="Afa 01.01."&JAHR(AB2)

Gruß Ingolf

 

Hi Ingolf,

leider bringt mir mein Makro nun ein Fehler
(Funktion oder Sub ) erwartet.

dies ist mein Versuch dies einzubauen:
lngZeile = Cells(Rows.Count, "G").End(xlUp).Offset(6, 1).Row
Range("G" & lngZeile).FormulaLocal = "AHK 01.01." & Jahr("AB2")

 

Hallo Rudi,

so würde es zum Beispiel funktionieren:
Code:

Gruß Ingolf

 

Hi Ingolf,

absolute superspitzenklasse, es hat geklappt.

Vielen Dank