PDA

Vollständige Version anzeigen : Datum auf Jahresanfang setzen


Rudi G
18.03.2009, 10:58
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??

IngGi
18.03.2009, 11:31
Hallo Rudi,

so?
<table><tr style="vertical-align:top; text-align:center; "><tr><td>&nbsp;</td></tr><tr><td><table border=1 cellspacing=0 cellpadding=0 style="font-family:Arial,Arial; font-size:10pt; padding-left:2pt; padding-right:2pt; "> <style type = "text/css"> th {font-weight:normal} </style> <colgroup><col width=30 style="font-weight:bold; "><col width=93.99999765 ></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td>&nbsp;</td><td>AB</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">28.02.2008</td></tr><tr height=17 ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="">Afa 01.01.2008</td></tr></table><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#FFFCF9; "><tr><td><b>Formeln der Tabelle</b></td></tr><tr><td><table style="font-family:Arial; font-size:10pt;">AB3 : ="Afa 01.01."&JAHR(AB2)<br></table></td></tr></table></td></tr><tr><td>&nbsp;</td></tr></tr></table>Gruß Ingolf

Rudi G
18.03.2009, 12:59
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")

IngGi
18.03.2009, 13:07
Hallo Rudi,

so würde es zum Beispiel funktionieren:
lngZeile = Cells(Rows.Count, "G").End(xlUp).Offset(6, 1).Row
Range("G" & lngZeile).FormulaLocal = "=""AHK 01.01.""&Jahr(AB2)"
Gruß Ingolf

Rudi G
18.03.2009, 13:15
Hi Ingolf,

absolute superspitzenklasse, es hat geklappt.

Vielen Dank