Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formelergebnis durch Wert ersetzen

VBA Formelergebnis durch Wert ersetzen
27.01.2021 10:53:03
Peter
Hallo zusammen,
zunächst absolut geniales Forum hier; ich habe schon vieles gelernt und angewendet. Akt. brauche ich jedoch eure Experten-Hilfe, da ich mit den Informationen hier meinen Use-Case noch nicht ganz abbilden kann.
Folgender Case: Ich möchte in einem Arbeitsblatt "A"; bestimmte Zellen bzw. Spalten (C) so abändern, dass in Abhängig vom Datum (B) das Formelergebnis durch Werte ersetzt werden. Im Detail sollen nur die Zellen geändert werden, wo das Datum (B) kleiner ist als HEUTE -1. Ein Beispiel findet Ihr hier https://www.herber.de/bbs/user/143350.xlsx
BG Patrick

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Formelergebnis durch Wert ersetzen
27.01.2021 11:06:54
StefanH
Hallo Patrick,
dafür wäre nicht zwingend VBA vonnöten, mit dieser Formel in der Zelle "C3" machst du das gleiche:
=WENN(B3
In VBA könnte es dann so aussehen 

Private Sub rechnen()
Dim lzeile As Integer
For lzeile = 3 To 250 'Anzahl der Zeilen die ?berpr?ft werden
If Cells(lzeile, 2).Value
Viele Grüße
Stefan
AW: VBA Formelergebnis durch Wert ersetzen
27.01.2021 11:12:52
Werner
Hallo,
so: 
Sub Schaltfläche1_Klicken()
Dim i As Long
With Worksheets("A")
For i = 3 To .Cells(.Rows.Count, "C").End(xlUp).Row
If .Cells(i, "B")
Gruß Werner
Anzeige
AW: VBA Formelergebnis durch Wert ersetzen
27.01.2021 11:30:37
Peter
Hi Werner, es macht was es soll. Ich kann nur sagen. VIELEN DANK!
Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 11:48:30
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 14:47:51
Peter
Ich habe jetzt leider noch eine Anpassung die gemacht werden müsste.
Kann man auch die genauen Zellen definieren, welche angepasst werden sollen? Also nicht die gesamte Spalte C?
Ich hätte gerne, dass nur die Zellen 10-220 geändert werden (Spalte C, sofern die Datums-Prüfung matched). Wenn möglich wäre es zudem perfekt; wenn er es auf mehrere Spalten anwendet d.h. Spalte C und D; jeweils die Zellen 10-220. Geht das? THX
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 14:58:44
Werner
Hallo,
meinst du so? 
Sub Schaltfläche1_Klicken()
Dim i As Long
With Worksheets("A")
For i = 10 To 220
If .Cells(i, "B")
Gruß Werner
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 15:09:50
Peter
100% was ich gebraucht habe! VIELEN Dank Werner!
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 15:32:33
Peter
Es tut mir so leid - ich muss ein letztes Mal noch nach einer Anpassung fragen.
Wäre es noch möglich den Zell-Wert (akt. im Beispiel 20-200) dynamisch zu hinterlegen? Es würde reichen wenn er den Wert aus demArbeitsblatt "A" aus Zeile A1 und A2 übernimmt (A1 = Startwert, A2 = Endwert).
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 16:29:12
Werner
Hallo,
ich kann nicht hellsehen. Ich habe keine Ahnung was du willst.
Lade mal eine Beispielmappe hoch und erklär anhand der Daten, was, wann wieso passieren soll.
Gruß Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 18:45:40
Peter
Aber sicher doch https://www.herber.de/bbs/user/143358.xlsm
Die Frage steht noch einmal im File. THX
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
27.01.2021 19:07:34
Werner
Hallo,
na klar. 
Sub Schaltfläche1_Klicken()
Dim i As Long
With Worksheets("A")
For i = .Range("H25") To .Range("H26")
If .Cells(i, "B")
Gruß Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
28.01.2021 08:53:49
Peter
Perfekt - Case closed!

301 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Verknüpfungen durch Werte ersetzen
Horst

Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.
Sub update() Dim i As Long For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).R...
22.02.2009 12:18:26
Thread-ID: 1052805
4 Beiträge
Bei Blattschutz- Formeln durch Werte ersetzen
Mandy

Hallo Ihr Lieben,
habe mal wieder eine Frage: ich lade mit folgenden Code eine Datei und kopiere alle Tebellenblätter aus der Quelle bei mir rein.
Die Tabellenblätter der Quelle, die da eingelesen werden, habe zum Teil untereinander Verknüpfungen (Verweise). Beim einlesen wollte ich abe...
05.05.2009 15:04:37
Thread-ID: 1073102
7 Beiträge
Anzeige
Bestimmte Formeln in durch Werte ersetzen
Steffen

Hallo zusammen,
ich habe folgendes Problem:
ein spezielle Formel (Hyperion Retrieve AddOn(HPVAL)) transportiert externe Daten aus meinem Konsolidierungsprogramm in verschiedene Tabellenblätter einer Exceldatei. Diese externen Daten werden über normale Excelformeln in weiteren Tabellenbl...
21.08.2009 20:57:43
Thread-ID: 1097849
2 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 14:31:21
Thread-ID: 1142729
3 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 15:13:40
Thread-ID: 1142750
4 Beiträge
SVERWEISE finden und durch Werte ersetzen
grexx123

HAllo,
wie schon im Betreff beschrieben suche ich ein VBA-Schnipsel, das
1. Alle Sverweise sucht
2. Zellen, in denen ein SVERWEIS steht, mit "Wert" füttern (also kopieren und als Wert einfügen)
Ich weiß, dass man Verknüpfungen lösen kann, jedoch habe ich sowohl die Formel als au...
08.03.2010 13:25:36
Thread-ID: 1144304
6 Beiträge
Formeln in Zellen durch VBA ersetzen
Kuhlmey

Hallo, liebe Excel-Freunde ich habe folgendes Problem:
Mittels VBA setzte ich durch Doppelclick ein „X“ in bestimmte Zellen. Diese Zellen werden
ausgelesen und für nachfolgende Formel benötigt:
{=WENN(ZEILE()>ZÄHLENWENN(Tabelle1!A:A;"WAHR");"";INDEX(Tabelle1!B:B; KKLEINSTE(WENN(...
13.03.2010 14:03:05
Thread-ID: 1145598
18 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
4
17
3
6
4
1
2
3
5
17
2
6
10
3
4
7
8
10
9
2
1
5
13
2
3