Aus jeglicher Formel kann man VBA machen, aber nicht aus jeglichem VBA eine (vba-lose) Formel :-)
Sub WerteInAfixen()
[Z1:Z99] = "=TEXT(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-25],""/"",""#"",2),""#0"",),""/"",),3,99),""00\/00\/0000\/0000"")"
[A1:A99] = [Z1:Z99].Value
[Z1:Z99].ClearContents
End Sub
Sub WerteInAfixen()
[Z1:Z99] = "=TEXT(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-25],""/"",""#"",2),""#0"",),""/"",),3,99),""00\/00\/0000\/0000"")"
[A1:A99] = [Z1:Z99].Value
[Z1:Z99].ClearContents
End Sub
WIN/MSO schicken angeblich alle 5 Sekunden Deinen Screen heim zu Papa (recall-Klausel).