Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Formation VBA

Forumthread: bedingte Formation VBA

bedingte Formation VBA
25.11.2015 10:32:14
Roland
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

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: muss VBA?
25.11.2015 10:48:21
hary
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

Anzeige
Was ist mit 3,91?
25.11.2015 10:55:26
RPP63
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

AW: Was ist mit 3,91?
25.11.2015 11:01:45
Roland
Hallo Hary,
bei deinen Code wird alles rot :-(
@Ralf: ich habe vorher dieses eingegeben:
Columns("L:L").Select
Selection.NumberFormat = "0.0"

Anzeige
Ja, und?
25.11.2015 11:04:49
RPP63
Hi!
Dadurch änderst Du lediglich das Format und nicht den Wert!
Umso wichtiger ist meine Frage aus meinem letzen Beitrag.
Gruß Ralf

Oh sorry
25.11.2015 11:08:43
Roland
das wusste ich nicht.
es ist diese Formel hinterlegt:
=WENN(SUMME(F49:H49);SUMME(F49:H49)/K49;"")
Danach habe iich auf 0,0 formatiert.

Anzeige
AW: Oh sorry
25.11.2015 11:16:12
hary
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 = 5: zelle.Interior.ColorIndex = 3
End Select
Next

gruss hary

AW: Oh sorry
25.11.2015 11:22:09
Roland
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....

Anzeige
Bei mir geht's
25.11.2015 11:30:44
RPP63
Aber:
Warum erstellst Du Dir keine Vorlage (mit bed. Form.) und erstellst stdl. aus dieser Vorlage eine neue Datei?
Gruß Ralf

AW: Ist es Text?
25.11.2015 12:07:04
hary
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

Anzeige
OT@RPP63
25.11.2015 11:21:14
hary
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

Für manche Fragesteller ...
25.11.2015 11:26:48
RPP63
... muss man manchmal mitdenken, spart Nachfragen, hary ;-))
Aber der TE hat ja jetzt (ohne eigenes Nachfragen *grins*) eine fkt. Lösung.
Gruß Ralf
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Information aus Excel an Outlook VBA Makro übergeb
Christian

Hallo zusammen,
ich wüsste gerne, wie ich in einem Outlook Makro auf Daten, die in einer Excel Tabelle stehen, zugreifen kann.
Ich verwende ein Outlook Makro welches eine Excel-Datei als e-mail-Anhang an einen Empfänger sendet und wie folgt aussieht:
----------
Sub versand() D...
17.08.2008 18:48:53
Thread-ID: 1002451
8 Beiträge
bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Anzeige
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Anzeige
Start einer Autoform in VBA
Michael

Hallo,
zunächst wünsche ich Euch allen frohe Festtage und einen guten Rutsch.
Ich habe folgendes Problem:
Ich möchte für den Benutzer meiner Excel Application in VBA die eingebaute Funktion Freeform aufrufen. Das soll den Curser in ein Kreuz verwandeln und dem Nutzer gestatten, eine...
26.12.2008 17:21:55
Thread-ID: 1035315
8 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Bedinte Formatierung mittels VBA
Dinci

Hallo zusammen.
Ich habe eine Liste aus der ich verschiedene Ausagen herausziehen möchte.
Dieses kann man ja gut mit der bedingten Formatierung durchführen.
Da es für Anwender konzipiert ist, möchte ich, dass der Anwender diese Aussagen selber definiert.
Aus diesem Grund habe...
27.01.2009 13:36:57
Thread-ID: 1044216
5 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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