Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1364to1368
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
Inhaltsverzeichnis

Bedingte Formatierung VBA

Bedingte Formatierung VBA
03.06.2014 13:18:32
Matthias
Hallo,
bräuchte kurz Eure Hilfe:
Sub Abweichung()
Dim Zelle As Range
Sheets("Tabelle1").Select
For Each Zelle In Range("P10:R25")
Select Case Zelle.Value
Case Is  1: Zelle.Font.ColorIndex = 10 ' >100% Farbe grün
Case Else
Zelle.Interior.ColorIndex = xlNone
End Select
Next
End Sub

Ich will in der Range("P10:R25") Prozentwerte(die mit einer Formel berechnet werden)
mit unterschiedlichen Farben markieren. Anforderungen hab ich hinter den jeweiligen Case geschrieben. Irgendwie will das nicht so ganz funktionieren.
Weiß da jemand Rat?
Gruß und Dank Matthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
. statt , !!!!
03.06.2014 13:40:13
Rudi
Hallo,
VBA spricht englisch.
Case Is 
etc.
Gruß
Rudi
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige