Clever-Excel-Forum

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

Hallo,

es geht doch laut Beschreibung nur um die Zelle C7:

Sub M_Ersetzen()

  With Range("C7")

    .Value = Application.Replace(Mid(.Value, 4), 4, 1, "")

  End With

End Sub

Gruß Uwe

Stimmt, hatte ich gar nicht mehr befolgt.

Aber das "ganz viele Dateien" steckt bei Dir auch noch nicht drin ;)