Wie kann ich es mit einem VBA code erreichen, daß sobald die Formel in der Zelle D7 errechnet wurde, das Ergebnis stehen bleibt, aber die Formel gelöscht oder außer Betrieb gesetzt wird?
Dann geht es mit D8, D9, D10 weiter.
Danke im Vorraus.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column 4 Then Exit Sub
If Target.Row
der Funktionelle Teile ist "Target.Formula = Target.Value", der Rest ist die Prüfung auf den richtigen Zellbereich
Gruß, Daniel
Private Sub Worksheet_Calculate()
Dim rngBereich As Range, iCalc As Integer
'Bereich wo sich die Formeln befinden, hier Spalte 1
Set rngBereich = Columns(1)
On Error GoTo KeineFormeln:
'sind keine Formeln vorhanden, kommt es zum Fehler
Set rngBereich = rngBereich.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
' Formel wird durch festen Wert ersetzt,
' wenn diese als Ergebnis nicht leer liefert.
' Dies kann auch umgestellt oder erweitert werden
For Each rngBereich In rngBereich
If rngBereich <> "" Then rngBereich.Value = rngBereich.Value
Next rngBereich
.Calculation = iCalc
.ScreenUpdating = True
.EnableEvents = True
End With
KeineFormeln:
End Sub
Gruß Tino
Um in Excel alle Formeln zu entfernen und die berechneten Werte zu behalten, kannst du folgende Schritte ausführen:
Strg + C, um die Zellen zu kopieren.Wenn du VBA verwenden möchtest, um diesen Vorgang zu automatisieren, kannst du den folgenden Code verwenden:
Private Sub Worksheet_Calculate()
Dim rngBereich As Range
On Error GoTo KeineFormeln:
Set rngBereich = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
For Each cell In rngBereich
If cell.Value <> "" Then cell.Value = cell.Value
Next cell
KeineFormeln:
End Sub
Füge diesen Code in das Modul des entsprechenden Tabellenblatts ein.
Problem: Die Formel bleibt stehen und berechnet sich weiterhin.
Problem: Werte werden abgerundet oder nicht korrekt übernommen.
Eine einfache Möglichkeit, alle Formeln aus Excel zu entfernen und die berechneten Werte zu behalten, ist die Verwendung der „Suchen und Ersetzen“-Funktion:
Strg + H, um das Suchen und Ersetzen-Fenster zu öffnen.= ein.Dies entfernt alle Formeln, sorgt jedoch auch dafür, dass die Werte nicht stehen bleiben. Daher ist diese Methode nur sinnvoll, wenn du die Formeln endgültig löschen möchtest.
Beispiel 1: Du hast in Zelle D7 die Formel =B7*C7. Um die Formel zu löschen und das Ergebnis zu behalten, kopierst du die Zelle und fügst sie als Wert wieder ein. Jetzt bleibt der Wert in D7 stehen, ohne dass die Formel noch vorhanden ist.
Beispiel 2: Wenn du eine ganze Spalte mit Formeln in Excel hast und diese entfernen möchtest, kannst du die gesamte Spalte auswählen, den oben beschriebenen Vorgang durchführen und so alle Formeln auf einmal entfernen.
Strg + Z, um Änderungen rückgängig zu machen, falls du versehentlich die falschen Zellen bearbeitet hast.1. Wie kann ich alle Formeln aus Excel entfernen? Um alle Formeln aus Excel zu entfernen, kannst du die Zellen kopieren und dann als Werte einfügen. Alternativ kannst du auch den VBA-Code verwenden.
2. Was passiert mit den Werten, wenn ich die Formeln lösche? Wenn du die Formeln korrekt entfernst, bleiben die berechneten Werte in den Zellen erhalten. Achte darauf, die Zellen als Werte einzufügen, um die Formeln zu löschen.