PDA

Vollständige Version anzeigen : Formel automatisch vor andere Formel setzen


Manu3l
04.04.2012, 10:03
Tag zusammen,

Folgendes Problem:

Ich möchte in einigen grossen Spalten die Formel " =WENNFEHLER("Zeile";"Formel";0) " einsetzen.

Kann ich das irgendwie automatisch machen, dass die Zeile und die bisherige Formel automatisch in die neue Formel eingefügt wird?

Danke und Gruss

manu3l
04.04.2012, 10:04
Also ein Beispiel noch:

Bisher sah es so aus:

=E5/D5


Neu sollte es so aussehen:

=WENNFEHLER(E5/D5;0)

mücke
04.04.2012, 11:39
Moin,

evtl. so:
Option Explicit

Sub Formel_anpassen()

Dim zelle As Range
Dim alteFormel As String, neueFormel As String

For Each zelle In ActiveSheet.UsedRange
If zelle.HasFormula = True Then
zelle.Activate
alteFormel = zelle.Formula
neueFormel = "=Wennfehler(" & Replace(alteFormel, "=", "") & ";0)"
zelle.FormulaLocal = neueFormel
End If
Next zelle

End Sub

VisorOne
04.04.2012, 21:09
Wenn das ne einmalige Aktion ist könnte man doch einfach die Formeln in der Tabelle als Text anzeigen lassen (Unter Excel 2010 die Tastenkombi "alt + m + o") und das ganze mit "Suchen und ersetzen" (Strg + F) erledigen.

Gruß V1