VBA - Teil von Formeln löschen
31.10.2022 08:34:00
Formeln
Ich habe ein Excel mit mehreren Tabellenblättern und sehr vielen Formeln erstellt. Nun muss ich bei allen Formeln die Multiplikation mit der Zelle B1 durchführen (dort ist ein indirekter Bezug auf die Zelle A1 drin, wobei der Wert dieser Zelle nur 0 oder 1 sein kann). Dies habe ich mit folgendem Code (aufgezeichnet) realisiert:
'
Range("B1").Select
Selection.Copy
Columns("AG:FL").Select
Application.CommandBars("Selection").Visible = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
ActiveWindow.SmallScroll Down:=-108
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
Range("B3").Select
Application.CutCopyMode = False
End Sub
1. Ctrl + F um "Suchen und Ersetzen" aufzurufen
2: Suchen: ~*indirekt(A1), Ersetzen: ""
3. Alle ersetzen
-> Diese Schritte haben eigentlich zum gewünschten Resultat geführt und folgender Code wurde aufgezeichnet:
Cells.Replace What:="~*(INDIREKT(""a1""))", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
MFG
Peter