Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Werte einer Formel in Zellen eintragen lassen

Nur Werte einer Formel in Zellen eintragen lassen
15.07.2019 16:29:36
David
Hallo zusammen,
ich habe zwei Formeln, wobei die erste in D4:D126 stehen soll und die zweite direkt daneben in E4:E126.
In den Formeln habe ich jeweils die Zelle durch ein X ersetzt.
Die erste Formel in D ist: =wenn(Cx=Bx;"-";Cx-Bx)
Die zweite Formel in E ist: =wenn(istfehler(Dx/Bx);"-";Dx/Bx)
Nun zu meiner Frage:
Die Idee ist, dass die beiden Formeln für die Angegebenen Zellen in VBA hinterlegt werden, jedoch nur nachher in den Zellen die einzelnen Werte der Formel stehen.
Das Problem ist, wenn ich z.B.
Cells(i, 4).Value = Cells(i, 3).Value - Cells(i, 2).Value nehme,
dass in den Zellen B und C davor oftmals entweder irgendein Text steht, diese leer sind oder 2x eine 0 drin steht.
LG
David

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Werte einer Formel in Zellen eintragen lassen
15.07.2019 16:44:34
Daniel
HI
am einfachsten ist, wenn du per VBA zuerst die Formeln in die Zellen schreibst und hinterher die Formeln durch Werte ersetzt.
dann haben während der Berechnung auftretende Fehler keinen Einfluss auf dein Makro:
With Range("D4:E126")
.Columns(1).FormulaR1C1 = "=IF(RC3=RC2,""-"",RC3-RC2)"
.Columms(2).FormulaR1C1 = "=IF(ISERROR(RC4/RC2,""-"",RC4/RC2)"
.Formula = .Value
End with
Gruß Daniel
AW: Nur Werte einer Formel in Zellen eintragen lassen
15.07.2019 17:02:25
David
Hallo Daniel,
vielen Dank! Funktioniert wunderbar!
Hast du mir noch eine Möglichkeit, in die ganze Formel noch eine Formatierung einzubauen?
Als Beispiel:
In Zelle E5 steht ein Wert von -20%
Wenn der durch die zweite Formel berechnete Wert über oder unter 5% beträgt, soll die entsprechende Zelle in welcher der Wert steht bis vor zu Spalte A rot markiert werden, sprich in meinem Beispiel Zelle A5 bis E5 rot markieren.
LG
David
Anzeige
AW: Nur Werte einer Formel in Zellen eintragen lassen
15.07.2019 17:10:31
Daniel
Hi
das würde ich über die bedingte Formatierung regeln.
die erstellst du aber besser von Hand, ganz normal.
Gruß Daniel
AW: Nur Werte einer Formel in Zellen eintragen lassen
15.07.2019 20:14:57
David
Hi,
prinzipiell möglich wäre das aber über VBA oder? Und wenn ja, wie aufwendig wäre denn die ganze Geschichte?
LG
David
AW: Nur Werte einer Formel in Zellen eintragen lassen
16.07.2019 11:42:50
Daniel
HI
wäre auch mit VBA möglich
du musst halt nach einfügen der Werte mit einer Schleife über die Zellen laufen, den Wert prüfen und dann die Zellen färben.
also im Prinzip etwa so:
With Range("D4:E126")
.Columns(1).FormulaR1C1 = "=IF(RC3=RC2,""-"",RC3-RC2)"
.Columms(2).FormulaR1C1 = "=IF(ISERROR(RC4/RC2,""-"",RC4/RC2)"
.Formula = .Value
for each Zelle in .Columns(2).Cells
if ABS(Zelle.Value) >= 0.05 then
Zelle.Offset(0, -4).Resize(, 5).Interior.Color = vbRed
end if
next
End with

Gruß Daniel
Anzeige

333 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4