Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

format

format
01.02.2009 18:03:05
Rolf
Hallo Leute!
Wer könnte mir helfen-ich habe heute schon den ganzen Tag
vergeblich verloren um eine Logik aufbauen.
Es geht um formatierung nach Wert.
Also es sollten 4 Stufen bei einfärbung geben
Logik
a) A1 > A2 -hell grün
b) A1 > A2 und A1 > A7-grün
c) A1 d) A1 

Sub format()
'If Range("A1").Value > Range("A2").Value Then
'Range("B1").Interior.ColorIndex = 40 '6-gelb
If Range("A1").Value > Range("A7").Value Then
Range("B1").Interior.ColorIndex = 4 '6-gelb
ElseIf Range("A1").Value


Rolf

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: format
01.02.2009 18:10:14
Hajo_Zi
Hallo Rolf,
mal ungetestet die entsprechenden Farben mußt Du noch eintragen

Sub format()
If Range("A1").Value > Range("A2").Value Then
If Range("A1").Value > Range("A7").Value Then
Range("B1").Interior.ColorIndex = 4 'grün
else
Range("B1").Interior.ColorIndex = 40 'hell grün
End if
ElseIf Range("A1").Value



AW: format
01.02.2009 18:14:06
Ramses
Hallo
Probier mal

Sub format()
If [a1]  [a2] And [a1] > [a7] Then
[b1].Interior.ColorIndex = 4
ElseIf [a1] > [a2] Then
[b1].Interior.ColorIndex = 35
End If
End Sub


Gruss Rainer

Anzeige
AW: format
01.02.2009 18:25:17
Uwe
Hi Rolf,
auch wenn ich mal wieder der Letze bin. Ich hatte auch was zusammengebastelt, und so wird mal wieder bwiesen, dass viele Wege nach Rom führen (Ich hoffe ich habe mich nicht verfahren (;-)).
Teste mal, die Farben musst Du noch anpassen:

Sub Farbe()
With Range("B1").Interior
Select Case Range("A1").Value
Case Is > Range("A2").Value
If Range("A1").Value > Range("A7").Value Then
.ColorIndex = 4
Else
.ColorIndex = 40
End If
Case Is  Range("A7").Value Then
.ColorIndex = 3
Else
.ColorIndex = 6
End If
End Select
End With
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: noch 2 Variante
01.02.2009 18:48:00
Daniel
Hi
weils so schön ist noch ein paar Wege nach Rom:

If range("A1").value > Range("A2").value then
Range("B1").interior.Colorindex = HELLGRÜN
if Range("A1").value > Range("A7").Value then Range("B1").Interior.Colorindx = GRÜN
ElseIf range("A1").value


und dann gäbs noch folgende Variante:


Dim Farbe(3) as integer
Dim i as long
Farbe(0)=HELLGRÜN
Farbe(1)=GRÜN
Farbe(2)=ROT
Farbe(3)=GELB
i = -2*(Range("A1").Value  Range("A7").value)
Range("B1").Interior.Colorindex = Farbe(i)


in der Ersten Variante erfolgt bei A1=A2 keine Färbung, in der 2. hingegen schon.
Gruß, Daniel
ps: bitte die Farben in Grossbuchstaben durch die entsprechenden Farbindexwerte ersetzen

Anzeige
AW: noch 2 Variante
01.02.2009 19:34:23
Rolf
Hallo Leute!
Habe alles getestet!
Bei vorgegeben Logik richtig arbeiten Makros Von Hajo und Ramses.
Makros von Uwe und Daniel geben farben falsch ab.
Jetzt wo die Logik richtig arbeitet stellt sich heraus
das meine Logik fehlerhaft ist!!
Richtig wäre:
a) A1 > A2 und A1 > A7 -l grün
b) A1 A7 -hell grün
c) A1 > A2 und A1 d) A1 Ich hoffe das Ihr noch Interesse habt
und die neue (richtige Logik) zum laufen bringt!
Herzliche Grüße
Rolf
AW: noch 2 Variante
01.02.2009 19:41:00
Hajo_Zi
Hallo Rolf,
da sind doch nur Kleinigkeiten zu tauschen.

Option Explicit
Sub format()
If Range("A1").Value > Range("A7").Value Then
If Range("A1").Value > Range("A2").Value Then
Range("B1").Interior.ColorIndex = 4 'grün
Else
Range("B1").Interior.ColorIndex = 40 'hell grün
End If
ElseIf Range("A1").Value


um die richtige Farbe habe ich mich nicht gesorgt.
Gruß Hajo

Anzeige
AW: Zellenhintergrundfarben
01.02.2009 19:53:00
Gerd
Hallo Rolf,
die richtige Farbnummer.
'eine leere Tabelle aktivieren.
Sub Standardfarbeinstellungen()
Dim i as long
For i = 1 to 56
Cells(i,1).Interior.ColorIndex= i
Next
Die Zeilennummern in der Tabelle sind die ColorIndex - Nummern.
Und nur mal so aus Neugierde. Was soll bei " = " wie gefärbt werden ?
Gruß Gerd
AW: Zellenhintergrundfarben
01.02.2009 20:17:00
Rolf
Hallo Hajo und Gerd!
Ich habe schon die neue Logik selbst gepackt
da das Makro von Ramses so klar war!!
"=" passiert so selten so beachte ich es nicht!
Habe heute einfach Freude!
Ihr habt mich glücklich gemacht!
Herzliche Grüße
Rolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige