Microsoft Excel

Herbers Excel/VBA-Archiv

bedingte Formation VBA

Betrifft: bedingte Formation VBA von: Roland
Geschrieben am: 25.11.2015 10:32:14

Hallo,

ich möchte gerne das in Spalte L2 bis L... alle zahlen von
3,0 bis 3,9 Gelb
4,0 bis 4,9 Orange
Alles ab 5,0 ROT
sollen die Zellen gefüllt werden.

Wäre das über VBA mäglich?

Gruß Roland

  

Betrifft: AW: muss VBA? von: hary
Geschrieben am: 25.11.2015 10:48:21

Moin
Muss es VBA sein? Reicht doch eigtl. bed. Foamtierung.
In ein Modul.

Dim zelle As Range
 For Each zelle In Range("L2:L" & Cells(Rows.Count, 12).End(xlUp).Row)
  Select Case zelle.Value
   Case 3 To 3.9: zelle.Interior.ColorIndex = 6
   Case 4 To 4.9: zelle.Interior.ColorIndex = 44
   Case Is > 5: zelle.Interior.ColorIndex = 3
   Case Else:: zelle.Interior.ColorIndex = xlNone
  End Select
 Next

grus hary


  

Betrifft: Was ist mit 3,91? von: RPP63
Geschrieben am: 25.11.2015 10:55:26

Hallo!
Gerade bei Formelergebnissen hast Du nämlich häufig wg. Umrechnungsproblemen Dual/Dezimal
statt 3,9
3,90000000000001
in der Zelle stehen (auch wenn Du es nicht siehst).

Gruß Ralf


  

Betrifft: AW: Was ist mit 3,91? von: Roland
Geschrieben am: 25.11.2015 11:01:45

Hallo Hary,

bei deinen Code wird alles rot :-(
@Ralf: ich habe vorher dieses eingegeben:

Columns("L:L").Select
Selection.NumberFormat = "0.0"


  

Betrifft: Ja, und? von: RPP63
Geschrieben am: 25.11.2015 11:04:49

Hi!
Dadurch änderst Du lediglich das Format und nicht den Wert!
Umso wichtiger ist meine Frage aus meinem letzen Beitrag.

Gruß Ralf


  

Betrifft: Oh sorry von: Roland
Geschrieben am: 25.11.2015 11:08:43

das wusste ich nicht.
es ist diese Formel hinterlegt:

=WENN(SUMME(F49:H49);SUMME(F49:H49)/K49;"")

Danach habe iich auf 0,0 formatiert.


  

Betrifft: AW: Oh sorry von: hary
Geschrieben am: 25.11.2015 11:16:12

Moin
Versuch mal.

Dim zelle As Range
  For Each zelle In Range("L2:L" & Cells(Rows.Count, 12).End(xlUp).Row)
   Select Case zelle.Value
    Case Is < 3: zelle.Interior.ColorIndex = xlNone
    Case Is < 4: zelle.Interior.ColorIndex = 6
    Case Is < 5: zelle.Interior.ColorIndex = 44
    Case Is >= 5: zelle.Interior.ColorIndex = 3
   End Select
  Next

gruss hary


  

Betrifft: AW: Oh sorry von: Roland
Geschrieben am: 25.11.2015 11:22:09

Hallo Hary
leider immer noch ROT
Spalte L

3,2
0,3
1,8
1,7
1,7


1,2
0,2
0,5
0,3
0,5
0,2
5,2
0,3

0,1
0,3

keine Ahnung woran das liegt. Wenn ich es händisch über bedingte Formatierung mache, geht es. Aber ich muss diese Liste stündlich machen.

Ich bin leider in der Arbeit, und dürfen keine Datei hochladen....


  

Betrifft: Bei mir geht's von: RPP63
Geschrieben am: 25.11.2015 11:30:44

Aber:
Warum erstellst Du Dir keine Vorlage (mit bed. Form.) und erstellst stdl. aus dieser Vorlage eine neue Datei?

Gruß Ralf


  

Betrifft: AW: Ist es Text? von: hary
Geschrieben am: 25.11.2015 12:07:04

Moin Roland
kann es sein, dass in den Zellen Textzahlen sind?



Tabelle1

 KL
3Wahr'3.9

verwendete Formeln
Zelle Formel Bereich R1C1 für Add In
K3=ISTTEXT(L3)  =ISTEXT(RC[1])

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary


  

Betrifft: OT@RPP63 von: hary
Geschrieben am: 25.11.2015 11:21:14

Moin
Spitzfindig gesagt: War nicht gefragt. ;-)) LOL
"3,0 bis 3,9 Gelb
4,0 bis 4,9 Orange"
Hab ich nicht dran gedacht.
gruss hary


  

Betrifft: Für manche Fragesteller ... von: RPP63
Geschrieben am: 25.11.2015 11:26:48

... muss man manchmal mitdenken, spart Nachfragen, hary ;-))

Aber der TE hat ja jetzt (ohne eigenes Nachfragen *grins*) eine fkt. Lösung.

Gruß Ralf


 

Beiträge aus den Excel-Beispielen zum Thema "bedingte Formation VBA"