Addition mit Bedingung

Question

Hallo Zusammen,
ich möchte in einer Zeile eine Summe über alle ausgewählten Felder bilden, außer in diesem Feld steht ein bestimmter Wert. Diese wären -100,000% oder #DIV/0!
Für eure Hilfe wäre ich sehr dankbar!

Gruß
Frank

Answer 1

In den Felder, in denen -100,000% und #DIV/0! steht, ist das nicht schlimm. Nur alle anderen Formeln in dem Datensatz sollen nicht gelöscht werden.

MfG
Frank

Answer 2

Hallo Frank,

nachfolgendes Makro sollte das machen. Ausgabe der Summe in Zelle A1. Das muss eventuell bei Dir geändert werden.
Aber Achtung, in den besagten Feldern wird die Formel gelöscht.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Addition_mit_Bedingung()
Dim rngCell As Range
Dim dblSumme As Double

For Each rngCell In Selection
On Error Resume Next
If rngCell.Value = -1 Then
rngCell.Value = 0
ElseIf rngCell.Text = "#DIV/0!" Then
rngCell.Value = 0
End If
dblSumme = dblSumme + rngCell.Value
On Error GoTo 0
Next
Range("A1") = dblSumme
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 3

Vielen Dank Oliver.
Wie müsste ich das Makro abändern falls ich ohne eine Summe zu bilden, nur die 2 Felderinhalte durch eine 0 ersetzen möchte.

MfG
Frank

Answer 4

Hallo Frank,

lösche die Zeile mit dem Range-Befehl raus.

MfG,
Oliver von Unterwgs per Nokia N97

Answer 5

Hi Oliver,
vielen Dank für deine Hilfe! Funktioniert ausgezeichnet.

MfG
Frank

Answer 6

Hallo Frank,

gerne geschehen. Danke auch für die Rückmeldung.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]