Makro
07.07.2006 11:29:39
Mafred
Wer kann mir die untenstehende Formel in der richtigen Reihenfolge schicken.
Sie soll funktionieren aber bei mir nicht
Sub Formel()Range("M3").Select Dim zei As LongIf MsgBox(prompt:="Wirklich ändern ?", Buttons:=vbQuestion + vbYesNo) = vbNo Then Exit Subzei = Range("L65536").End(xlUp).RowRange("AM1").ClearContentsRange("M3").FormulaR1C1 = "=DATE(RIGHT(RC[-1],4)*1,MID(RC[-1],IF(LEN(RC[-1])=8,3,2),2)*1,LEFT(RC[-1],IF(LEN(RC[-1])=8,2,1))*1)"Range("M3").AutoFill Destination:=Range("M3:M" & zei), Type:=xlFillDe
Gruß und vielen Dank im voraus Manni