Formel ändern per VBA

Markus · 1970-01-01T00:00:00+00:00

Hallo, das untenstehende Makro macht einen Vorzeichen-Wechsel. Ich habe das Makro hier im Forum gefunden. Leider wird der Vorzeichen-Wechsel nicht durchdeführt, wenn eine Formel markiert ist. z.B. wenn ich B5 markiere (Formel in B5: =SUMME(B2:B4) wird das Vorzeichen nicht gewechselt. Warum? Soweit bin ich leider noch nicht, um das zu "programmieren". Markus, der jetzt schon für Hilfe dankt Sub Vorzeichen() Dim Zelle As Range For Each Zelle In Selection Zelle.Value = Zelle.Value * -1 Next Zelle End Sub

Hi Markus,
zunächst mal würde ich die Prozedur ein wenig einfacher schreiben:


Sub Vorzeichen()
Dim rngC As Range
For Each rngC In Selection
rngC.Value = -rngC.Value
Next rngC
End Sub

ZELLE ist eine Excelfkt., man sollte "Zelle" nicht als Variablennamen verwenden.
Man muss nicht multiplizieren mit -1, wenn man auch einfach ein Minus davor schreiben kann.
Zu deiner Frage:
Wenn in B5 eine Formel steht und B5 beim Aufruf selektiert ist, wird die Formel ersetzt durch ihren aktuellen Wert.
Die Formel ist danach also futsch! Willst du das?
Beim Vorzeichen des Formelergebnisses drängt sich die Frage auf, ob es überhaupt gedreht werden sollte.
Wenn die Vorzeichen der Werte in B2:B4 gedreht werden, ändert sich das Vorzeichen der Summe doch automatisch mit,
durch Neuberechnung. Dann sollte B5 besser nicht selektiert sein beim Aufruf.
Oder willst du in B5 die Formel behalten - das Formelergebis aber mit umgedrehtem Vorzeichen?
Dann darfst du nicht rngC.Value belegen (das löscht die Formel), sondern mit
rngC.Formula oder rngC.FormulaLocal oder... die Formel ergänzen.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hi Markus,
du hast dich wohl nicht falsch ausgedrückt - ich habe nur nicht erkannt, was genau du möchtest.
In dieser Tabelkle stehen in
- Spalte B die Ausgangswerte
- Spalte C die Werte nach "Vorzeichen"
- Spalte D die Werte nach zweimaligem Aufruf von "Vorzeichen":

	B	C	D
3	vorher	Vorzeichen	2*Vorzeichen
4	-123	123	-123
5	456	-456	456
6	333	333	333

Formeln der Tabelle

Zelle	Formel
B6	=SUMME(B4:B5)
C6	=-(SUMME(C4:C5))
D6	=-(-(SUMME(D4:D5)))

Hier die Routine:


Option Explicit
Sub Vorzeichen()
Dim rngC As Range
For Each rngC In Selection
If rngC.HasFormula Then
rngC.Formula = "=-(" & Mid(rngC.Formula, 2, 999) & ")"
Else
rngC.Value = -rngC.Value
End If
Next rngC
End Sub

Wie du siehst, ändert sich der Wert in Zeile 6 nicht. Soll dat?
Was soll eigentlich "=SUMME(B2:B4)/-1" anstelle von "=-SUMME(B2:B4)" ? Warum willst du hier dividieren?
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Forumthread: Formel ändern per VBA

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Excel Formel per VBA ändern: So klappt's

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)