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