Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba

Forumthread: vba

vba
21.03.2016 21:20:03
Jürgen
Guten Abend,
ich bin fast fertig mit meinen Vba code,
brauche aber noch einen Code.
In Spalte E ab Zeile 3 habe ich Prozent Angaben.
Ich möchte jetzt alles was unter 50% soll die zelle weiß bleiben.
-100 bis 0 = blau
1 bis 60 = grün
61 bis 75 = gelb
76 bis 100 = rot.
Sollen Füllfarben sein.
Kann mir jemand dabei helfen?
Ich brauche es in Vba und nicht in bedingte Formatierung.
Danke an alle
Gruß Jürgen

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
unklare Frage
21.03.2016 21:55:27
Uduuh
Hallo,
-100-0 sind doch auch &lt 50.
Frage die Zellen auf die echten Werte ab. 50%=0,5.
Wie kommen die Werte zustande? Formel oder Eingabe?
Gruß aus’m Pott
Udo

AW: vba
21.03.2016 22:14:43
Fennek
Hallo,
angenommen, die Spalte F ist frei, dann
F3: =verweis(e3;{-1;0,1;0,6;0,75;1};{1;2;3;4;5})
Und nach unten ziehen/kopieren.
Die Farbe setzen mit
Sub Jurgen()
lr = cells(rows.count, "E").end(xlup).row
For i = 3 to lr
Select case cells(i, "E")
Case 1
Cells(i, "E").interior.color = vbblue
Case 2
'genauso weiter bis case 5
End select
Next i
End Sub

Anzeige
weitere Infos
22.03.2016 05:21:27
Jürgen
Hallo danke an alle.
Also in der E3 die Formel drin =WENN(C3>0,1;100-D3;"k.Reserve") und sie Zelle mit 0 "%" Formatiert.
Die minus zahlen kommen zur Stande, weil Falsche werte im System stehen.
Deswegen BLAU damit die Kollegen den Fehler gleich bereinigen.
Können auch machen:
alles kleiner als 0 = blau
1 bis 60 = grün
61 bis 75 = gelb
76 bis 100 = rot.
Leider kann ich keine Hilfspalte verwenden, da bis Spalte AD alles belegt ist.
Danke euch

Anzeige
AW: weitere Infos
22.03.2016 10:32:54
Rudi
Hallo,
Leider kann ich keine Hilfspalte verwenden, da bis Spalte AD alles belegt ist.
und was ist mit AE:XFD ? Das sind doch noch 16354.

AW: weitere Infos
22.03.2016 12:29:56
Jürgen
Das würde gehen ab. AE :-)

frage
22.03.2016 15:11:20
Jürgen
Warum brauche ich eine hilfspalte?
Kann man nicht einfach sagen von bis diese Zahl dann Farbe?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige