Zelle Formel zuweisen
Julia
ich habe zwar diverse Foreneinträge gefunde bezüglich
"bestimmten Zellen über VBA eine Formel zuweisen"
allerdings weis ich nich wie das bei mir funktioniert.
Habe über das Tabellenblatt bereits folgenden Makro:
Sub Ersetzen()
Dim cell_ As Range
On Error Resume Next
For Each cell_ In Cells.SpecialCells(xlCellTypeFormulas, 23)
cell_.Formula = "=IF(ISERROR(" & Replace(cell_.Formula, "=", "") & "),""""," & Replace( _
_
_
_
cell_.Formula, "=", "") & ")"
Next
End Sub
in jeder Zelle ist eine PIVOTDATENZUORDEN() Formel
aktiviere ich den Makro nun über eine Schlatfläche läuft das und es entsteht in jeder Zelle =WENN(ISTFEHLER(....)
nun habe ich aber einige Zelle wo es heisst "Formel zu lang"
also dachte ich daran, diese über VBA einzugeben.
=PIVOTDATENZUORDNEN("# of GTs (Mkt)";[MDR.xls]GT_Pivot!$A$86;"Order Year (FY)";2018;"Frequency (Hz)"; 50;"GT Class";"E";"Customer Segment";"Developing Countries")+PIVOTDATENZUORDNEN("# of GTs (Mkt)"; [MDR.xls]GT_Pivot!$A$86;"Order Year (FY)";2019;"Frequency (Hz)";50;"GT Class";"E"; "Customer Segment"; "Developing Countries")+PIVOTDATENZUORDNEN("# of GTs (Mkt)"; [MDR.xls]GT_Pivot!$A$86;"Order Year (FY) ";2020;"Frequency (Hz)";50;"GT Class";"E"; "Customer Segment";"Developing Countries") +PIVOTDATENZUORDNEN("# of GTs (Mkt)"; [MDR.xls]GT_Pivot!$A$86;"Order Year (FY)";2021;"Frequency (Hz)"; 50;"GT Class";"E"; "Customer Segment";"Developing Countries")+PIVOTDATENZUORDNEN("# of GTs (Mkt)"; [MDR.xls]GT_Pivot!$A$86;"Order Year (FY)";2022;"Frequency (Hz)";50;"GT Class";"E"; "Customer Segment"; "Developing Countries") /5
daraus soll ja dann auch
=WENN(ISTFEHLER(PIVOTDATENZUORDNEN(...);"";PIOVTDATENZUORDEN(....))) werden
z.B. G90- G94 und dann wieder G100- G104 u.s.w.
Oder geht das so gar nicht wie ich mir das vorstelle:)?
Vieln Dank schon mal,
Julia
Anzeige