Herbers Excel-Forum - das Archiv

Case Abfrage



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Case Abfrage
von: Detlef


Geschrieben am: 24.05.2002 - 09:19:20

Hallo zusammen,
habe noch ein kleines Problem
mit meiner Case-Abfrage.
Ich in einer Spalte Prozentzahlen
und möchte je nach Wert farblich kenn-
zeichnen.
bis 49% schwarz
ab 50 % grün
ab 90 % rot

Sub Schriftfarbe()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("M2:M1416")
For Each Zelle In Bereich
Select Case Zelle.value

Case "1%" To "49%"
Zelle.Font.ColorIndex = 0
Case "50%" To "89%"
Zelle.Font.ColorIndex = 4
Case Is > "90"
Zelle.Font.ColorIndex = 3
End Select
Next
End Sub
Beim ausführen meines Makros passiert gar nichts !
Hat jemand eine Idee ?

nach oben   nach unten

Re: Case Abfrage
von: Harald Kapp


Geschrieben am: 24.05.2002 - 09:28:29

Hallo Detlef,
einmal im Debugger den Wert von Zelle.Valuue angucken und schon geht's weiter.
1% wird gespeichert als 0,01. Die Anzeige als %-Zahl ist nur eine Frage der Formatierung. 1% = 1/100 = 0,01 - mathematisch gesehen.

Du fragst aber darauf ab, ob in der Zelle der String "1%" steht. Das gibt nie eine Übereinstimmung, folglich passiert nix, außer dass Deiner CPU kurzzeitig nicht langweilig wird :-)

Gruß Harald

 nach oben

Excel-Beispiele zum Thema "Case Abfrage"
Unterdrückung von Sicherheitsabfragen Arbeitsmappe-Schließen-Abfrage abfangen
Name der aufrufenden Schaltfläche abfragen Abfrage der markierten Spalten
Anzahl der einzufügenden Zeilen abfragen Programmabbruch bei Überspeichernabfrage verhindern
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist Web-Abfrage ohne *.iqy-Datei
Web-Aktienkursabfrage bei YAHOO Start- und Enddatum abfragen und markieren