Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln in Zeile durch aktuellen Wert ersetzen

Formeln in Zeile durch aktuellen Wert ersetzen
20.09.2017 15:56:24
Benji
Guten Tag liebe Excel-Mitstreiter,
ich würde gerne per VBA alle Formeln in einer Zeile durch deren aktuelle Werte ersetzen lassen, wenn in "Spalte E" die Zahl "3" eingetragen wird.
Hierzu hab ich folgenden Beitrag gefunden: 

https://www.computerwissen.de/office/excel/artikel/externe-bezuege-durch-werte-ersetzen.html

wie kann man den hier angebotenen VBA-Code umbauen, dass in einer Zeile alle Formeln durch Ihre Werte ersetzt werden, wenn in Spalte E der Wert 3 eingetragen wird?!
Leider ist mein VBA nicht sonderlich gut, sodass Ich es nicht selber hinbekomm.
zum vllt. leichteren Verständnis,
wenn E3="3" dann alle Formeln in Zeile 3 durch aktuellen Wert ersetzen. 

Sub LinksErsetzen()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange.Cells
If InStr(Zelle.Formula, "[") > 0 And InStr(Zelle.Formula, "]") > 0 Then Zelle.Formula = Zelle.   _
_
_
Value
Next Zelle
End Sub

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

Betreff
Datum
Anwender
Anzeige
Nachfrage
20.09.2017 15:59:17
Michael
Hallo Benji!
Der von Dir gepostete Code ersetzt aber Formeln in ALLEN Zellen des verwendeten Bereichs auf dem aktiven Blatt. Du willst das, offenbar, nur für eine Zeile; für welche?
LG
Michael
AW: Nachfrage
20.09.2017 16:08:58
Benji
Hallo Michael,
genau wenn in Zeile 3 Spalte E der Wert 3 eingetragen wird, möchte Ich dass in Zeile 3 die Formeln durch Werte ersetzt werden.
Allerdings habe ich mir gerade nochmal meinen Aufbau angeschaut, von demher möchte ich doch lieber "nur", dass in Spalte N die Formeln durch ihre Werte ersetzt werden.
Sprich wird in E3 der Wert 3 eingetragen, soll die Formel in N3 durch ihren Wert ersetzt werden.
Und das ganze soll dann für den Bereich E2:N500 funktionieren.
Vielen Dank für die Hilfsbereitschaft schon mal.
Gruß Benji
Anzeige
AW: Nachfrage
20.09.2017 16:49:27
Michael
Hallo!
Dieser Code muss in das Modul des Tabellenblattes, in dem er wirken soll. D.h. entsprechenden Tabellenblattreiter mit ReMaus-Taste anklicken, Code anzeigen, dort einfügen.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count = 1 Then
If Not Intersect(Range("E2:E500"), Range(.Address(0, 0))) Is Nothing _
And .Value = 3 Then
Cells(.Row, "N").Value = Cells(.Row, "N").Value
End If
End If
End With
End Sub
Ein Eintrag von "3" in E2:E500 bewirkt die Umwandlung einer etwaigen Formel in der jeweiligen Zeile in N:N in ihren Wert.
LG
Michael
Anzeige
einwandfrei
20.09.2017 16:59:13
Benji
vielen Dank für die schnelle Hilfe Michael. Genau wie Ich es haben will.
Beste Grüße,
Benji
Gerne, Danke für die Rückmeldung, owT
20.09.2017 17:00:14
Michael

320 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Objekt in Formel verwenden
Michael

Schönen Sonntagmorgen,
ich möchte mit der Bedingung, dass ein Objekt angezeigt wird oder eben nicht (innerhalb eines If-Tests) eine Berechnung durchführen.
Weiß jemand, wie ich das in die If-Formel einbaue? Die "Shapes"-Eigenschaft wie im VBA ist es offensichtlich nicht...
Wäre supe...
15.02.2009 10:45:00
Thread-ID: 1050847
5 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 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
3
6
5
3
2
6
4
1
3
4
3
6
3
6
12
2
11
2
4
3
10
3
2
5
7