Wert statt Formel

Forumthread: Wert statt Formel

Wert statt Formel

09.12.2016 16:29:44

kurt

Hallo,
weiss jemand wie ich aus einer Formel nur das Ergebnis der Berechnung in eine Zelle schreiben kann, sodass man wirklich nur den Wert sieht und nicht die Formel der Berechnung?
Problem: Code läuft unter einer Schleife und die Werte von der Tabelle2 werden ständig gelöscht. Wenn die Formel geschrieben wird, übernimmt diese für alle Berechnungen die letzen erzeugte Werte aus Tabelle2.
lLast = ThisWorkbook.Sheets("Tabelle3").Cells(Rows.count, 2).End(xlUp).Row
ThisWorkbook.Sheets("Tabelle1").Cells(Rows.count, "C").End(xlUp).Offset(1).FormulaLocal = _
"=SUMMENPRODUKT(Tabelle2!B3:AU3;'Tabelle3'!B" & lLast & ":AU" & lLast & ")-SUMMENPRODUKT(Tabelle2!B2:AU2;'Tabelle3'!B" & lLast - 1 & ":AU" & lLast - 1 & ")"

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wert statt Formel

09.12.2016 16:36:00

UweD
AW: Wert statt Formel

09.12.2016 16:50:54

kurt
gern geschehen owT

10.12.2016 11:51:19

UweD
AW: Wert statt Formel

09.12.2016 16:40:16

Daniel

AW: Wert statt Formel

09.12.2016 16:36:00

UweD

Hallo
ungeprüft...


With ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, "C").End(xlUp).Offset(1)
.FormulaLocal = _
"=SUMMENPRODUKT(Tabelle2!B3:AU3;'Tabelle3'!B" & lLast & ":AU" & lLast & ")" & _
"-SUMMENPRODUKT(Tabelle2!B2:AU2;'Tabelle3'!B" & lLast - 1 & ":AU" & lLast - 1 & ")"
.Value = .Value
End With

LG UweD

AW: Wert statt Formel

09.12.2016 16:50:54

kurt

es funktioniert, danke!

gern geschehen owT

10.12.2016 11:51:19

UweD

AW: Wert statt Formel

09.12.2016 16:40:16

Daniel

Hi
man kann versuchen, die Formel in VBA über Worksheetfunction nachzubilden (Worksheetfunction stellt die Excelfunktionen in VBA zur Verfügung, aber ebenn VBA-Typischer Codiertung)
Das funktioniert aber bei komplexen Formeln nicht immer.
In diesen Fällen ist es am einfachsten, die Formel in die die Zelle zu schreiben und dann die Formel durch ihren Wert zu ersetzen.
sieht dann prinzipell so aus (pseudocode)


With Zellbereich_Für_Formel
.FormulaLocal = "=hier dein Formeltext"
.Formula = .Value
End with

gruß Daniel

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel den Wert statt der Formel anzuzeigen, kannst du die folgenden Schritte befolgen:

Formel in die Zelle einfügen: Schreibe deine gewünschte Formel in die Zelle, wie zum Beispiel:
```
=SUMMENPRODUKT(Tabelle2!B3:AU3;Tabelle3!B1:AU1)
```
Wert anstelle der Formel setzen: Klicke auf die Zelle mit der Formel und drücke F2, um die Bearbeitung zu starten. Drücke anschließend Enter, um die Formel zu bestätigen.
Wert kopieren: Um den Wert zu behalten, während du die Formel entfernst, kopiere die Zelle (Strg + C).
Wert einfügen: Rechtsklicke auf die Zelle und wähle „Inhalte einfügen“ -> „Werte“. Dadurch wird der aktuelle Wert anstelle der Formel eingefügt.

VBA-Methode (optional): Wenn du dies automatisieren möchtest, kannst du die folgende VBA-Methode verwenden:

With ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, "C").End(xlUp).Offset(1)
   .FormulaLocal = "=SUMMENPRODUKT(Tabelle2!B3:AU3;'Tabelle3'!B" & lLast & ":AU" & lLast & ")"
   .Value = .Value
End With

Häufige Fehler und Lösungen

Fehler: Die Formel wird nicht angewendet
Lösung: Stelle sicher, dass die Syntax der Formel korrekt ist und die Referenzen auf andere Blätter stimmen.
Fehler: Der Wert wird nicht aktualisiert
Lösung: Überprüfe, ob die Zellen, die du kopierst, die richtigen Werte enthalten, und dass du tatsächlich „Werte“ einfügst.
Fehler: Die Zelle zeigt immer noch die Formel an
Lösung: Vergewissere dich, dass du die Zelle richtig kopierst und die „Inhalte einfügen“ Option korrekt gewählt hast.

Alternative Methoden

Text statt Formel: Du kannst auch den Text in die Zelle eingeben, anstatt die Formel zu verwenden. Dies ist besonders nützlich, wenn du nur einen statischen Wert benötigst.
Verwendung von TEXT-Funktion: Wenn du die Formatierung des Ergebnisses steuern möchtest, kannst du die TEXT-Funktion verwenden:
```
=TEXT(SUMMENPRODUKT(...), "0.00")
```
VBA WorksheetFunction: Du kannst auch die WorksheetFunction in VBA nutzen, um das Ergebnis einer Formel zu berechnen, ohne sie in eine Zelle zu schreiben:
```
Dim result As Double
result = Application.WorksheetFunction.SumProduct(Range("Tabelle2!B3:AU3"), Range("Tabelle3!B" & lLast & ":AU" & lLast))
```

Praktische Beispiele

Beispiel 1: Angenommen, du hast eine Formel, die den Gesamtumsatz aus einem Bereich berechnet. Du möchtest nur den Gesamtwert sehen:

With ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, "C").End(xlUp).Offset(1)
   .FormulaLocal = "=SUM(A1:A10)"
   .Value = .Value
End With

Beispiel 2: Du kannst auch mehrere Zellen gleichzeitig bearbeiten, um Werte statt Formeln anzuzeigen:

With ThisWorkbook.Sheets("Tabelle1").Range("C1:C10")
   .FormulaLocal = "=B1*2"
   .Value = .Value
End With

Tipps für Profis

Schnelltasten nutzen: Verwende Strg + C und dann Strg + Alt + V, um direkt die „Werte“ Option auszuwählen.
Makro erstellen: Wenn du oft Werte statt Formeln kopieren musst, erstelle ein Makro, das diesen Vorgang automatisiert.
Datenüberprüfung: Achte darauf, dass deine Daten regelmäßig überprüft werden, um sicherzustellen, dass die Werte aktuell sind.

FAQ: Häufige Fragen

1. Frage
Wie kann ich sicherstellen, dass die Werte aktualisiert werden?
Antwort: Du kannst die Zelle mit der Formel manuell aktualisieren oder ein Makro verwenden, um die Werte regelmäßig zu aktualisieren.

2. Frage
Kann ich die Werte auch aus mehreren Blättern kopieren?
Antwort: Ja, du kannst die Werte aus verschiedenen Blättern kopieren, indem du die entsprechenden Zellreferenzen in deiner Formel verwendest.

Beliebteste Forumthreads (12 Monate)

Forumthread: Wert statt Formel

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Werte statt Formeln in Excel anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread