Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1028to1032

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Vergleich Wert aus Formel mit Zahl über VBA Code

Forumthread: Vergleich Wert aus Formel mit Zahl über VBA Code
6 Beiträge zu diesem Forumthread
Anzeige
317 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

09.12.2008 18:38:21

Maja

Hallo,
ich habe als VBA-Anfänger ein Problem, an dem ich mir die "Zähne ausbeiße".
Ich möchte die Summe aus zwei Zellen (z.B. AD7 und AE7), die jeweils eine Formel enthalten mit einer Zahl aus einer dritten Zelle (z.B. AE2) vergleichen. Ist die Summe von AD7 und AE7 nun größer als die Zahl in AE 2, sollen die beiden "Formelzellen" AD7 und AE7 rot eingefärbt werden.
Mir gelingt bis jetzt nur das Bilden der Summe in einer vierten Zelle (z.B. A1), die ich dann mit AE2 vergleiche. Allerdings finde ich das zu umständlich und das Einfärben der Zellen AD7 und AE7 ist damit leider auch noch nicht gelöst.
Darüber hinaus habe ich manchmal das Problem, dass AD7 oder AE7 leer ist, also gar keinen Wert enthält und dementsprechend bei einer Summenbildung in A1 "#Wert" angezeigt wird. Wie kann ich dieses Problem angehen?
Ich freue mich über jeden Hinweis.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vergleich Wert aus Formel mit Zahl über VBA Code

09.12.2008 19:18:42

Larass
AW: Vergleich Wert aus Formel mit Zahl über VBA Code

10.12.2008 10:59:00

Maja
AW: Vergleich Wert aus Formel mit Zahl über VBA Code

10.12.2008 11:04:00

Erich
AW: Vergleich Wert aus Formel mit Zahl über VBA Code

10.12.2008 14:16:32

Maja
AW: Danke für Rückmeldung!

10.12.2008 19:12:11

Erich
AW: Bedingte Formatierung ?

09.12.2008 19:44:58

Erich

AW: Vergleich Wert aus Formel mit Zahl über VBA Code

09.12.2008 19:18:42

Larass

Hallo Maja,
soweit wie Du Dein Problem beschrieben hast würde es z.B. hierdurch gelöst:


Sub Rotfärben()
If Range("AD7").Value + Range("AE7").Value > Range("AE2").Value Then
Range("E21:E22").Interior.ColorIndex = 3
Else
Range("E21:E22").Interior.ColorIndex = 0
End If
End Sub

Ansonsten bitte genauer!
Gruß, Lars

AW: Vergleich Wert aus Formel mit Zahl über VBA Code

10.12.2008 10:59:00

Maja

Hallo,
danke für die Lösung! Ich habe da wohl echt den Wald nicht vor Bäumen gesehen.
Mein Problem ist jetzt noch eine Leerzelle.
Wie kann ich eine solche Leerzelle in die Addition mit einbeziehen, ohne das mir ein Laufzeitfehler angezeigt wird?
Gruß
Maja

AW: Vergleich Wert aus Formel mit Zahl über VBA Code

10.12.2008 11:04:00

Erich

Hi Maja,
vielleicht so:


Sub Rotfärben()
If Application.Sum(Range("AD7:AE7")) > Range("AE2").Value Then
Range("E21:E22").Interior.ColorIndex = 3
Else
Range("E21:E22").Interior.ColorIndex = 0
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Vergleich Wert aus Formel mit Zahl über VBA Code

10.12.2008 14:16:32

Maja

Hallo Erich,
danke für deine Lösung!
Range("E21:E22").Interior.ColorIndex = 0 hat bei mir nicht unktioniert (kam immer eine Fehlermeldung), daher habe ich dann Range("E21:E22").Interior.ColorIndex = xlColorIndexNone geschrieben, was auch funktioniert.
Ansonsten klappt alles super.
Danke! Auch für den Hinweis mit der Bedingten Formatierung. Ich hatte diesen Weg nicht gewählt, da neben der Farbmarkierung gleich eine Messagebox ausgegeben werden sollte (und meine Abfrage nach der Zellfarbe in VBA nicht lief).

AW: Danke für Rückmeldung!

10.12.2008 19:12:11

Erich

Hallo Maja,
sorry, das mit dem ColorIndex = 0 hatte ich nicht gesehen - hab nicht getestet.
Ich hab mich halt nur um Application.Sum(Range("AD7:AE7")) gekümmert...
Grüße von Erich aus Kamp-Lintfort

AW: Bedingte Formatierung ?

09.12.2008 19:44:58

Erich

Hallo Maja,
warum nicht einfach über bedingte Formatierung?