Supportnet / Forum / Tabellenkalkulation

Hallo, ich suche eine Möglichkeit, in einer Spalte Formeln einzugeben, die auch als solche angezeigt und ausgedruckt werden (z. B.: [in Spalte C] =2,01*5,01-1,01*2,01), in der nächsten Spalte der selben Zeile soll das Ergebnis ([in Spalte D] 8,04) der Formel angezeigt werden. Vielen Dank im Voraus! JE

Hallo JE,

noch eine Verständnisfrage:

a) Soll immer die Formel und das Ergebnis angezeigt werden,
oder
b) suchst du eine Möglichkeit die Formel mal zu drucken!

zu b)
Wenn du nur eine Möglichkeit suchst die Formeln zu sehen und zu drucken,
gehe mal auf Extras->Optionen und mach einen Haken bei der Option Formeln.

Für die andere Version habe ich leider keine Idee! :-(

gruss
pelle

Hallo pelle,

vielen Dank für Dein Mail.
Es soll immer die Formel und das Ergebnis angezeigt werden. Die von Dir angegebene Variante b ist mir bekannt.

Gruß
JE

Hallo JE,

war nur ein Versuch!

Ich glaub, da müssen die die VBA-Spezialisten weiterhelfen!

Danke für deine Rückmeldung!

gruss
pelle

hi,
mal ohne weiteren kommentar:

Sub quatsch()
Range("D1").Value = "´" & Range("C1").FormulaLocal
End Sub

cu Micha

Hallo Micha,

der Weg geht schon in die richtige Richtung! Wie sieht es aber aus, wenn in einer Tabelle 20 Zeilen sind [Range("C15:C35")], in einer anderen 40 Zeilen [Range("C15:C55")], in einer weiteren 35 Zeilen mit leeren Zwischenzeilen [Range("C15:C30;C34:C54"), in den Zeilen 31 bis 33 sind keine Formeln eingetragen]?

Vielen Dank für Deine Bemühungen!

Gruß
JE

na ist doch ganz einfach ;-)

Sub quatsch()
Dim zeile As Long
Dim spalte As Integer
spalte = 3
For zeile = 1 To 100
If Cells(zeile, spalte).Formula <> "" Then
Cells(zeile, spalte + 1).Value = "´" & Cells(zeile, spalte).FormulaLocal
End If
Next zeile
End Sub

cu Micha

wie gesagt, ist doch ganz einfach ;-)
erst kopf einschalten dann posten *grummel*
so natürlich:

Sub quatsch()
Dim zeile As Long
Dim spalte As Integer
spalte = 3
For zeile = 1 To 100
If Cells(zeile, spalte).HasFormula = True Then
Cells(zeile, spalte + 1).Value = "´" & Cells(zeile, spalte).FormulaLocal
End If
Next zeile
End Sub

oder so als eigenständige function:
(muss in ein modul und ist dann als benutzerdefinierte formel abrufbar)

Function FormelinText(Zelle As Range)
If Left(Zelle.FormulaLocal, 1) = "=" Then _
FormelinText = Zelle.FormulaLocal Else _
FormelinText = ""
End Function

cu Micha

Hi,

wie wärs, einfach ein Hochkomma vor die Formel zu setzen? Dann wird sie angezeigt...

Gruß
cmkatz

Hallo,ich habe einen Informatik Beleg zu machen und habe bestimmte Fragen zu Exel,kann mir jemand helfen und Fragen beantworten???

Hallo Micha,

vielen Dank für Deine Lösungen, sie sind wirklich Spitze.
Excel beherrsche ich als Anwender recht gut, nur mit VBA habe ich nichts am Hut, so dass ich hier nicht weiter kam.

Bei Deiner Lösung mit der benutzerdefinierten Formel, die mir besonders gut gefällt, habe ich im Gegensatz zu der Makro-Lösung ein Formatierungs-Problem. Geht der Ansatz über mehrere Zeilen, wird die Formel trotz
Format-Zellen-Ausrichtung-Textausrichtung-vertikal-oben
erst ab der 2. Zeile ausgegeben. Bei der Makrolösung ist es OK.

Vielen Dank nochmals!.

Mit freundlichem Gruß
JE

hi,
sorry,
ich kann dir nicht ganz folgen ?
was hat ein format mit dem ergebnis einer formel respektive eines makros zu tun ??

aber o.k.
noch eine funktion:

Function FormelinText(Zelle As Range) As String
If Zelle.HasFormula = True Then FormelinText = Zelle.FormulaLocal Else FormelinText = ""
End Function

cu Micha