Office: Zellen mit Farbe füllen

Hallo Leute,

ich habe einen VBa-Code der die Zellen nach der Wert mit farbe füllt. Jedoch habe ich ca. 100 Zellen, die so gefüllt werden.

gibts da auch einen code, damit ich nicht jede Zelle extra schreiben muss.

Ich habe diesen hier:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("ab7").Value < 79.999999999999 Then
Range("ab7").Interior.ColorIndex = 3
End If
If Range("ab7").Value > 79.999999999999 Then
Range("ab7").Interior.ColorIndex = 4
End If
'-------------------------------------------
If Range("ab8").Value < 79.999999999999 Then
Range("ab8").Interior.ColorIndex = 3
End If
If Range("ab8").Value > 79.999999999999 Then
Range("ab8").Interior.ColorIndex = 4
End If
'-------------------------------------------

If Range("ab9").Value < 79.999999999999 Then
Range("ab9").Interior.ColorIndex = 3
End If
If Range("ab9").Value > 79.999999999999 Then
Range("ab9").Interior.ColorIndex = 4
End If
'-------------------------------------------

End Sub

kann ich das in einen code zusammenfassen?

Danke schonmal im Voraus

:)

 

Hallo,

was soll denn passieren, wenn der Wert = 79.999999999999 ist?

Man kann das natürlich mit der von Dir gewählten Ereignisprozedur machen, aber in meine Augen wäre eine Bedingte Formatierung einfacher.

Wenn es unbedingt die Ereignisprozedur sein soll, nutze Target:
Code:

Ich habe mal < 80 und >=80 als Bedingung angenommen.

Grüße
EarlFred

 

Das Problem dabei ist, das ich den Wert nicht in die Zelle schreibe, sondern, das der Wert durch eine Summenformel erstellt wird. Da funktioniert das ganze nicht.

Wenn ich ihn reinschreibe, funktionierts.

 

benutze die bedingte Formatierung.

 

Hallo Name?,

dann bist Du beim Change-Ereignis aber grundlegend falsch aufgehoben, da ist das Calculate-Ereignis besser.
Aber auch hier: Bedingte Formate sind einfacher und vor allem vbafrei.

Code:

Grüße
EarlFred

 

Herzlichen Dank nochmals.

So gut kenn ich mich nicht aus, hab zwar ein wenig Ahnung, aber wie was genau, da happerts bei mir.

Auf jeden Fall funktionierts super.

 

Eine Frage hätte ich noch dazu, wenns nicht zu schwer ist.

Wäre es auch möglich, das, wenn die Zelle AB7 den Wert hat, das dann die Zell A7 die Farbe ändert?

 

Hallo name,

probier's mal so:
Code:

GRuß, David

 

Hallo David,



Tabelle1

	A	B	AB
1			80,099999999999
2			79,899999999999

Bedingte Formatierung wird in dieser Tabelle nicht dargestellt

verwendete Formeln
Zelle	Formel	Bereich	R1C1 für Add In
AB1	=79,999999999999+0,1		=79.999999999999+0.1
AB2	=79,999999999999-0,1		=79.999999999999-0.1

bedingte Formatierung

oberere/unterer Bereich

Zelle

Typ

Operator

Formel1

Formel2

Format

Unterstrichen

Schrift- farbe

Muster

Muster- farbe

Format

Anhalten

Auswahl

Anzeige

Anzahl

Durchschnitt

AB2:AB1,A2,A1

01.Bed.: Formel ist

=UND($AB1<>"";$AB1<79,999999999999)

65535

Falsch

AB2:AB1,A2,A1

02.Bed.: Formel ist

=$AB1>79,999999999999

5287936

Falsch

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Gruß Hajo

 

Super, danke

 

So, jetzt muss ich euch noch mal sekkieren. Wie kann ich einen zweiten calculate in das selbe Worksheet einbauen? Ich kriegs nicht hin.

 

Hallo Namenloser?,

was ist "ein calculate"?

Ich denke, ich weiß trotzdem, was Du meinst:
Frei nach Highlander: "Es kann nur einen geben!"

Geht also nicht - das Calculate-Ereignis ist pro Worksheet einmalig (woher soll denn Excel sonst auch wissen, welches "calculate" (grausames Wort) Du nun gerade nutzen willst?). Bau den anderen Code in die schon vorhandene Ereignisprozedur ein.
Oder nimm die Bedingte Formatierung.

Grüße
EarlFred

 

Das Problem dabei ist, das ich davon gar keine Ahnung habe, wie es geht. Ich habe jetzt diesen Code von Zai-Ba genommen:
Option Explicit

Private Sub Worksheet_Calculate()
Dim rng As Range, c As Range

'Me.Range("AB7:AB100") = Der Bereich, der überprüft werden soll

For Each c In Me.Range("AB7:AB100")
Cells(c.Row,1).Interior.ColorIndex = IIf(c.Value < 80, 3, 4)
Next

Set rng = Nothing
End Sub


wie kann ich da den zweiten einbauen?

 

Hallo Name?,

ich würde vermuten: Pack ihn einfach hinten dran?

Ich habe im Gegenzug keine Ahnung von der Aufgabe - benötigst Du konkretere Hilfe, frage konkreter nach.

Ich erwähne zum letzten Mal die Bedingte Formatierung, die das ganze einfach und vbafrei (was Dir vermutlich entgegenkäme) lösen kann. Auch wenn Du diesen Vorschlag (warum auch immer) nicht umsetzen willst / kannst / darfst, wäre es doch sicher nicht zuviel verlangt, darauf mit einem Satz einzugehen, oder? Schau's Dir doch wenigstens mal an - das ist in 5 Minuten verstanden und umgesetzt.

Grüße
EarlFred

 

Habs mit der bedingten Formatierung gemacht. Ist doch die beste Lösung dafür. Dachte nur, anders ists leichter.

Möchte mich auf jeden Fall nochmal bedanken.