Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1052to1056

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Formel nach berechnung löschen

Forumthread: Formel nach berechnung löschen
18 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

23.02.2009 23:12:45

Andre

Hallo!!
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.

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel nach berechnung löschen

23.02.2009 23:16:41

Uduuh
AW: Formel nach berechnung löschen

23.02.2009 23:18:06

Andre
wie lautet die Formel? o.T.

24.02.2009 00:28:07

Josef
AW: Formel nach berechnung löschen

24.02.2009 00:35:12

Daniel
AW: Formel durch Wert ersetzen

24.02.2009 00:49:00

Erich
noch eine Version

24.02.2009 07:55:34

Tino
AW: noch eine Version

24.02.2009 22:23:54

Andre
AW: noch eine Version

24.02.2009 22:40:46

Tino
AW: noch eine Version

25.02.2009 16:31:14

Andre
so kommen wir nicht weider

25.02.2009 17:39:02

Tino
AW: so kommen wir nicht weider

25.02.2009 17:54:38

Andre
AW: so kommen wir nicht weider

25.02.2009 18:33:02

Tino
AW: so kommen wir nicht weider

25.02.2009 18:45:05

Andre
AW: so kommen wir nicht weider

25.02.2009 19:02:05

Tino
AW: so kommen wir nicht weider

25.02.2009 19:05:38

Andre
AW: so kommen wir nicht weider

26.02.2009 13:42:41

Tino
AW: so kommen wir nicht weider

27.02.2009 13:25:48

Andre
AW: Formel nach berechnung löschen

24.02.2009 22:16:13

Andre

AW: Formel nach berechnung löschen

23.02.2009 23:16:41

Uduuh

Hallo,
wozu VBA?
Kopieren-Bearbeiten-Inhalte einfügen-Werte
Gruß ausm Pott
Udo

AW: Formel nach berechnung löschen

23.02.2009 23:18:06

Andre

Hallo!!
Es sollte schon automatisch laufen!!

wie lautet die Formel? o.T.

24.02.2009 00:28:07

Josef

Gruß Sepp

AW: Formel nach berechnung löschen

24.02.2009 00:35:12

Daniel

Hi
dieser Code muss ins Modul des Tabellenblatts, für das er gelten soll


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

AW: Formel durch Wert ersetzen

24.02.2009 00:49:00

Erich

Hi Andre,
du schreibst "sobald die Formel in der Zelle D7 errechnet wurde".
Das ist doch der Moment, in dem die Formel in die Zelle geschrieben wird, oder?
Dann greift Daniels Lösung.
Oder geht es etwa darum:
Das Formelergebnis hängt von einem oder mehreren Werten in anderen Zellen ab.
In D7 soll das Ergebnis nach Änderung dieser anderen Zelle(n) festgehalten werden.
Dann müsste man im Worksheet_Change diese andere(n) Zelle(n) überwachen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

noch eine Version

24.02.2009 07:55:34

Tino

Hallo,
hier noch eine Version, Kommentare stehen im Code.
Kommt als Code ins entsprechende Tabellenblatt.

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

AW: noch eine Version

24.02.2009 22:23:54

Andre

Hallo Tino!!
Wo und wie muß ich den die Spalte D eingeben?
Habe da leider nicht so die Ahnung.
Der File-Upload funktioniert leider nicht bei mir.
Gruß Andre

AW: noch eine Version

24.02.2009 22:40:46

Tino

Hallo,
mach aus
Columns(1)
dies
Columns(4)
1= Spalte A
2= Spalte B
3= Spalte C
4= Spalte D
usw...
Gruß Tino

AW: noch eine Version

25.02.2009 16:31:14

Andre

Hey Tino!!
Habe alles so gemacht wie du gesagt hast. Leider funzt es nicht bei mir.
Die alten Zellen werden immer noch neu berechnet sobalt sich die Bezugszelle ändert.
Hast du noch ne Möglichkeit?
Gruß Andre

so kommen wir nicht weider

25.02.2009 17:39:02

Tino

Hallo,
Lade mal eine Beispieldatei hoch, am besten mit Beispiel vorher nachher.
Dazu klicke auf "Hier geht es zum File-Upload"
Wähle eine Datei zum Upload aus
(beachte die Hinweise und verwende nicht ä, ö, ü, ß im Namen der Datei)
Klicke auf "Datei zum Server"
Du erhältst einen Link, diesen kopierst Du ohne veränderungen in Deine Nachricht.
Gruß Tino