With Selection . Replace wechselt DE in EN
29.08.2013 15:30:55
Peter
Guten Tag
Mit untenstehendem Code habe ich Formeln bearbeitet. Dabei habe ich nicht schlecht gestaunt, dass zusätzlich in diesen Formeln vorkommende Funktionen von deutsch auf englisch üersetzt wurden (z.B. SVERWEIS und SUMMEWENNS).
Kann das allenfalls verhindert werden?
Sub Formel_aendern()
strSuch = "=_"
strErsetz = "¤_WENN(NICHT(_02JA);0;_"
With Selection
.Replace What:=strSuch, Replacement:=strErsetz, _
lookat:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False
End With
End Sub