Formel und Ergebnis in Zelle drucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Klaus (& Rocco),
denn das geht schon. Auf der Basis einer unproblematischen 2-Zellen-Lösung, aber mit dem Anschein einer einzigen per Verbund so:
1. Verbund A1:B2: 6=2+2+2 aus folgd Fmln → A1:=EmFText B2:=2+2+2
benannte Fml EmFText:=AUSWERTEN(WECHSELN(TEIL(WIEDERHOLEN(TextOf($B1;0);2);2;99);"=";"&""=")&"""")
Anstelle der UDF TextOf darf natürlich die Xl-Fkt FORMELTEXT benutzt wdn, wodurch diese Lösung dann gänzlich VBA-frei wäre, die nächsten allerdings nicht.
2. In nur 1 Zelle A1, aber ebenfalls unter Verwendung einer benannten Fml, allerdings ohne XLM-Fkt, dafür aber mit UDF 6=2+2+2 aus folgd Fmln → A3:=2+2+2&Splint(FmlTx,"&",1,1) benannte Formel FmlTx:=TextOf($A3;0)
3. Herumsetzen von erweiternden FmlTeilen um die ursprüngl ZellFml (quasi analog zu Daniels 1.Ansatz) mit UDF 6=2+2+2 aus folgd Fml → A5:=WECHSELN(TxEval(WECHSELN(WECHSELN(TEIL(WIEDERHOLEN("=2+2+2";2);2;99);",";".");"=";"&""=")&"""");".";",")
Zum Herumsetzen (ggf per VBA-SubProzedur) wdn für alle OriginalFmln nur diese beiden Teile benötigt:
Vorsetzen: =WECHSELN(TxEval(WECHSELN(WECHSELN(TEIL(WIEDERHOLEN("
Nachsetzen: ";2);2;99);",";".");"=";"&""=")&"""");".";",")
Die UDF TxEval macht das Gleiche wie die o.g. alte XLM-Fkt AUSWERTEN, nur auch in einer ZellFml, aber eben nur mit im US-Original notierten Fmln.
Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

HI
in Excel reicht der vbLF als Zeilenumbruch.
wenn du ein Zahlenformat mit Umbruch haben willst, musst du den Umbruch selber als Zeichen an der gewünschten Stelle in den Text des Zahlenformats einbringen.

xxx.Numberformat = ""0.00""Hallo" & vbLf & "Welt"""

Einen Automatischen Umbruch gibt es bei Zahlen nicht!
Wenn eine formatierte Zahl mehr Platz benötigt als die Spaltenbreite hergibt, wird die Zahl nicht mehr angezeigt, sondern nur noch über #### dargestellt.
für die Spaltenbreite hilft dir auch der manuell eingefügte Umbruch nicht weiter, weil Excel bei der Berechnung der benötigten Spaltenbreite das Umbruchzeichen nicht als Umbruch erkennt sondern von der Breite des Textes ohne Umbruch ausgeht. (Stand Office 2016)
Gruß Daniel

Sub PrintFormelUndInhalt() Dim myRng As Range Set myRng = ActiveSheet.UsedRange Dim doRng As Range Dim myFormula As String Sheets.Add For Each doRng In myRng myFormula = doRng.FormulaLocal Cells(doRng.Row, doRng.Column).Value = doRng.Value & " " & myFormula Next doRng Application.DisplayAlerts = False With ActiveSheet .Columns("A:Z").EntireColumn.AutoFit .PrintOut copies:=1 .Delete End With Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

Formel und Ergebnis in Zelle drucken

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel und Ergebnis in Zelle drucken

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread