Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil der Formel durch Variable ersetzen VBA

Forumthread: Teil der Formel durch Variable ersetzen VBA

Teil der Formel durch Variable ersetzen VBA
07.05.2014 10:57:50
Ines
Hallo,
ich habe folgendes Problem. Mit der Formel Range("E2").FormulaR1C1 = "=RC[-1]*24" wird in VBA der Wert der eine Spalte vorher steht mit 24 multipliziert. Diesen kann ich auch auf eine andere Zahl ändern, so ändert sich die Spalte. Nun möchte ich gerne das dieser Wert durch den Benutzer in eine Input Box vorgegeben wird. Ich habe es so versucht:
Dim WertSpalteTime As String
WertSpalteTime = InputBox("Bitte angeben, wieviel Spalten die Spalte Time von der zu berechneten Spalte entfernt ist.")
Range("E2").FormulaR1C1 = "=RC[WertSpalteTime]*24"
kann mir jemand helfen?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Teil der Formel durch Variable ersetzen VBA
07.05.2014 11:01:59
Rudi
Hallo,
Schema:
Range("E2").FormulaR1C1 = "=RC[" & WertSpalteTime &"]*24"
Gruß
Rudi

AW: Teil der Formel durch Variable ersetzen VBA
07.05.2014 11:04:12
EtoPHG
Hallo Ines,
besser wäre: 
Range("E2").FormulaR1C1 = "=RC[" & WertSpalteTime & "]*24"

Frage: Ist die Spalte "Time" mit diesem Begriff in Zeile 1 betitelt? Wenn ja, könnte man die Spalte auch per VBA automatisch bestimmen.
Gruess Hansueli

Anzeige
AW: Teil der Formel durch Variable ersetzen VBA
07.05.2014 11:11:45
Ines
Super! Hat funktioniert! Vielen Dank.
Gruß Ines

AW: Teil der Formel durch Variable ersetzen VBA
07.05.2014 11:10:23
fcs
Hallo Ines,
so ginge es: 
  Dim WertSpalteTime As String
WertSpalteTime = InputBox("Bitte angeben, wieviel Spalten die Spalte Time von der zu " _
& "berechnenden Spalte entfernt ist." & vbLf _
& "(nach links mit vorangestelltem Minuszeichen)", _
Title:="Spalte für Formel", _
Default:="-1")
If WertSpalteTime = "" Then
'Eingabe wurde abgebrochen
Exit Sub
End If
Range("E2").FormulaR1C1 = "=RC[" & WertSpalteTime & "]*24"
End Sub
Gruß
Franz

Anzeige
AW: Teil der Formel durch Variable ersetzen VBA
07.05.2014 11:11:25
Daniel
Hi
ich verwende die Replace-Funktion, um solche Variablenwerte in die Formel einzubauen.
damit bleibt die Formel übersichtlicher und einfacher zu pflegen, was insbesondere bei längeren Formeln vorteilhaft ist:
dim Fo as String
dim WertSpalteTime as String
Fo = "=RC[xxx]*24"
WertSpalteTime = Inputbox("...")
Fo = Replace(Fo, "xxx", WertSpalteTime)
Range("E2").FormulaR1C1 = Fo
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten 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
Wertänderung durch Formel bei Case
Werner

Hallo
wer gibt mir einen Rat.
Im nachfolgenden Makro werden im Bereich D2 bis D52 bei manueller Eingabe die Msg.Boxen ausgegeben.Das funktioniert einwandfrei.
Frage: Wenn in D2 bis D52 Formel stehen (z.B in D10; =a10+b10) die den Wert erreichen klappt es nicht. Was muss ich änder...
02.11.2008 16:36:21
Thread-ID: 1021175
18 Beiträge
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
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 18:12:50
Thread-ID: 1097848
5 Beiträge
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
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
Formeln in best. Zeilen durch Wert ersetzen
Ramon

Hallo liebe VBA- und Makro-Experten.
Ich muß in einer datei mit rund 8.000 Zeilen in jeder 8. Zeile einer bestimmten Spalte
die Formel durch den Wert ersetzen. Jetzt kann ich zwar diese betreffenden Zeilen
per Autofilter filtern und dann kopieren. Aber "einfügen nur Wert" funktioni...
27.08.2010 14:54:50
Thread-ID: 1174538
3 Beiträge
Formeln einsetzen; erst d. Werte ersetzen wenn ..
Peter

.. wenn Formeln berechnet sind
Guten Abend
Mit nachfolgendem Code trage ich mir in einem Bereich, der etwa 6000 Zellen umfasst eine Summenprodukt-Formel ein und ersetze dann die Formeln durch die entspreche Sub FormelSummenprodukt_auswerten() With Sheets("Auswertung").Range("obenlinks:u...
04.11.2010 01:30:50
Thread-ID: 1185072
7 Beiträge
Formelmonster durch VBA ersetzen
Maris

Hallo lieben Excel Profis,
ich habe in einer Tabelle ein Formelmonster... das leider beide Kerne von meiner CPU meist voll auslastet, gibt es vielleicht eine Möglichkeit den Rechner zu schonen indem man das ganze durch VBA ersetzt. Folgende Formel greift auf Daten der Tabellenblätter A1 und...
14.12.2010 13:18:07
Thread-ID: 1191381
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige