Again: VBA soll Formel ergänzen, löschen
15.12.2005 10:30:33
urs
ich habe die Frage ähnlich schon mal gestellt und habe dabei untenstehenden Code von UweD bekommen.
Wie muss ich diesen abändern um nicht mit For alle Zellen anzusprechen, sondern, weil ich die einzelnen Zellen kenne und sie mit Cells(sRow,tCol) direkt ansteuern kann.
Das If kann entfallen, denn die Zellen können verschiedene Befehle enthalten. Im Wert(Beispiel: 25) der Zelle J15 ist dann der neu hinzuzufügende Ausdruck zwischengelagert.
Also Ersatz für ")" müsste ergeben ";"25")"
Wie ändern ?
Sub Plus17()
Dim Z
For Each Z In Cells.SpecialCells(xlCellTypeFormulas, 2)
If Left(Z.FormulaLocal, 11) = "=VERKETTEN(" Then
Z.FormulaLocal = Application.Substitute(Z.FormulaLocal, ")", ";D4)")
End If
Next
End Sub
Zusatz Frage: Um alle Formel-Ergänzungen wieder zu löschen gibt es da auch etwas?
z.B. If ..... ";"?")" replace by ")"
Vielen Dank für Eure Mithilfe. Gruss urs
Anzeige