Function mit Optional

Function myFormelInhalt(Optional Zelle As Range) If IsMissing(Zelle) Then Set Zelle2 = Selection.Offset(0, -1) If Zelle2.HasFormula Then myFormelInhalt = Zelle2.FormulaLocal Else myFormelInhalt = "##" End If Else If Zelle.HasFormula Then myFormelInhalt = Zelle.FormulaLocal Else myFormelInhalt = "##" End If End If End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function myFormelInhalt(Optional Zelle As Variant) As String Dim Zelle2 As Range If TypeName(Application.Caller) "Range" Then myFormelInhalt = "falscher Aufruf" Exit Function End If If IsMissing(Zelle) Then Set Zelle2 = Selection.Offset(0, -1) Else Set Zelle2 = Zelle End If If Zelle2.HasFormula Then myFormelInhalt = Zelle2.FormulaLocal Else myFormelInhalt = "##" End If End Function

…Niclaus,
wenn du vom richtigen Leerwert eines optionalen Objekts (wie Range) ausgehst. Außerdem ließe sich mit Luschis Variante keine spezielle F-Wert-Ausgabe realisieren, denn er hat das Ergebnis der UDF auf den Datentyp String festgelegt, was idR kontraproduktiv ist und nur den StandardFehler #WERT! erlaubt, den dann der FmlText-Interpreter von Xl setzt.
Im Prinzip reichen 4 Zeilen, um deine Wünsche zu erfüllen:

Function FText(Optional Zelle As Range)
If Zelle Is Nothing Then Set Zelle = Application.ThisCell.Offset(, -1)
If Zelle.HasFormula Then FText = Zelle.FormulaLocal Else FText = CVErr(xlErrNA)
End Function

Du kannst den gewonnenen Platz aber auch nutzen, um das Ergebnis zu verfeinern, zB so:

Function FText(Optional Zelle As Range)
Const fmArr$ = "{ }"
If Zelle Is Nothing Then Set Zelle = Application.ThisCell.Offset(, -1)
If Zelle.HasFormula Then
FText = Zelle.FormulaLocal
If Zelle.HasArray Then FText = Replace(fmArr, " ", FText)
Else: FText = CVErr(xlErrNA)
End If
End Function

Es wäre aber natürlich auch möglich, durch Angabe eines 2.Arguments zwischen den 4(-5)* Formen der .Formula-Eigenschaft zu wählen. Dieses Argument kann ebenfalls optional sein. Und es ist auch noch mehr möglich, wie Fmln von Gültigkeits- und BedingtFormat-Regeln, üblicherweise lokal (dt), aber auch im US-Original (was bei BedFormatRegeln leider wenig nutzt, obwohl es bei internationalen Pgmm wichtig wäre), auszulesen. RegelFml-Wiedergabe, vor allem im Original, wäre aber deutlich komplexer, falls das alles nur eine UDF machen soll.
Man könnte aber auch noch die Adresse der betroffenen Zelle oder - bei MatrixFmln - des Bereichs davorsetzen. So etwas kannst du oft bei meinen eigenen Fml-Vorschlägen im Forum sehen.
* .FormulaArray gibt's nur im US-Original und ggf auch nur im R1C1-Format. Deshalb könnte man evtl darauf verzichten und eine der anderen wie gezeigt mit {} versehen.
Morhn, Luc :-?
Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu! Auch deshalb informieren mit

Hallo Luschi, hallo Luc
@Luschi: Ein kleines Schrittchen für die Menschheit, ein grosser Schritt für mich: Dein Hinweis auf
IsMissing (Argname). Vielen Dank!
@Luc: Was mir bei Deiner Kurzversion zuerst aufgefallen ist:
Du schreibst: Set Zelle = Application.ThisCell.Offset(, -1)
Ich hatte geschrieben: Set Zelle2 = Selection.Offset(0, -1)
Du kannst Dir sicher vorstellen, was für ein Chaos es bei meiner Version gibt, wenn ich irgendeine Zelle markiert habe und "Application.CalculateFull" aufrufe.
Das ist mein zweiter grosser Erkenntnis-Schritt: Der Unterschied zwischen ThisCell, ActiveCell und Selection!
Dann habe ich selber noch einen Schritt gemacht. Ich habe in Deine "grosse" Function als erste Zeile eingefügt:
Application.Volatile
Wenn ich in Spalte A eine Formel ändere, wird in Spalte B nun sofort die richtige Formel angezeigt. Ohne diese Zeile ist das nicht immer der Fall: Wenn ich z. B. in A3 die Formel "=MIN(C5:C10)" ändere zu "=MAX(C5:C10)", wird in B3 weiterhin angezeigt "=MIN(C5:C10)".
Was Du als weitere Möglichkeiten erwähnst, das muss ich gelegentlich in Ruhe anschauen.
Euch beiden vielen Dank
Niclaus

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread