Zelle(n) mit Formel. Zelladresse(n) zeigen. Code kürzen

Guten Tag an alle.

In der Testdatei (anbei) ist der Code für die Anzeige der Zelladresse(n) mit Formel und weitere Angaben..
Wäre toll wenn die MsgBox auch die Angaben in MsgBox zeigt, die bei der ersten Zelle angezeigt werden.
Hab es nur für die erste Zelle geschafft.

Kann der Code verkürzt werden und wenn ja, wie und die Zellangaben auch in den Folgezellen, die Formeln beinhalten anzeigen?

Mit der Bitte um Hilfe,

grüßt,
Dieter(Drummer)
Testdatei:
https://www.herber.de/bbs/user/172065.xlsm
Jetziger Code in Modul1

Sub FormelZellen_JaNein()

If MsgBox("Nur erste Formelzelle markieren," & vbLf & " Ja Klicken" & vbLf & "Oder alle," & vbLf & " Nein Klicken?", vbYesNo) = vbYes Then

  Selection.SpecialCells(xlCellTypeFormulas, 23)(1).Select

   With ActiveCell

    MsgBox "Zellinhalt: " & .Value & vbLf & "Zelladresse: " & .Address(0, 0) & vbLf & "Formula: " & .Formula & vbLf & _

    "FormulaR1C1: " & .FormulaR1C1 & vbLf & "FormulaR1C1Local: " & .FormulaR1C1Local, vbInformation, "  Erste Zelle mit Formel"

End With



Else

  Selection.SpecialCells(xlCellTypeFormulas, 23).Select

  With Selection.SpecialCells(xlCellTypeFormulas, 23)

  MsgBox "Alle Formelzellen." & vbLf & "Zelladresse(n): " & .Address(0, 0), vbInformation, "  Zellen mit Formeln"

End With

End If

End Sub

Moin, :-)

... diese Variante (KEIN VBA - ist Office Script): ;-)

function main(workbook: ExcelScript.Workbook)

    {let sheet: ExcelScript.Worksheet = workbook.getActiveWorksheet();

    let cell: ExcelScript.Range = workbook.getActiveCell();

    let formula: string = cell.getFormula() as string;

    if (formula !== "")

        {let value: string = cell.getText();

        let address: string = cell.getAddress();

        let formulaR1C1: string = cell.getFormulaR1C1() as string;

        let formulaLocal: string = cell.getFormulaLocal() as string;

	let formulaVBA: string = formula.replace(/"/g, `""`);

        let outputCell: ExcelScript.Range = cell.getOffsetRange(0, 1);

        let outputText: string = `Zellinhalt: ${value}\n` + `Zelladresse: ${address}\n` + `Formula: ${formula}\n` + `FormulaLocal: ${formulaLocal}\n` + `FormulaR1C1: ${formulaR1C1}\n` + `VBA Formel: ${formulaVBA}`;

        outputCell.setValue(outputText);

	let outputCellFormat = outputCell.getFormat();

        outputCellFormat.setHorizontalAlignment(ExcelScript.HorizontalAlignment.left);

        outputCellFormat.setVerticalAlignment(ExcelScript.VerticalAlignment.top);

        outputCell.getFormat().autofitColumns();

        outputCell.getFormat().autofitRows();}}

Vorteil:
Du kannst die Datei als "*.XLSX" speichern.

Informationen zu Office Script:
https://learn.microsoft.com/de-de/office/dev/scripts/overview/excel

Im Moment wird - wenn das Skript ausgeführt wird - die aktive Zelle auf Formel überprüft. Die Informatioenn werden in der Zelle daneben ausgegeben.
Userbild

Office Skript hat lange nicht den Funktionsumfang wie VBA. Ein paar Dinge kann man aber erledigen. ;-)

Servus
Case

Zelle(n) mit Formel. Zelladresse(n) zeigen. Code kürzen

Forumthread: Zelle(n) mit Formel. Zelladresse(n) zeigen. Code kürzen

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zelle(n) mit Formel. Zelladresse(n) zeigen. Code kürzen

Forumthread: Zelle(n) mit Formel. Zelladresse(n) zeigen. Code kürzen

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread