Wenn B und C Makro

15/10/2009 - 20:18 von Heinz ROGHB346 | Report spam
Hallo



mein Problem ist

in den Spalten B und C stehen zb. folgende Werte



B C



124,0
72

161,0
92




in der Spalte G soll das Ergebnis ausgegeben werden.



Die Bedingung sind folgende



1. wenn B <100 und C <60 "Nie" Color
Index WEISS



2. wenn B 100 - 139 und C 60 - 89 "No" Color
Index GRÜN



3. wenn B 140 - 159 und C 90 - 99 "LB" Color
Index GELB

4. wenn B 160 - 179 und C100 - 109 "MB" Color Index
ORANGE

5. wenn B >180 und C >110 "SB" Color
Index ROT



Wer kann mir helfen?? Danke schon mal

Gruß Heinz
 

Lesen sie die antworten

#1 Dietmar Vollmeier
15/10/2009 - 21:24 | Warnen spam
Servus Heinz!

*Heinz ROGHB346* schrieb am 15.10.2009 um 20:18 Uhr...
in den Spalten B und C stehen zb. folgende Werte

[...]

in der Spalte G soll das Ergebnis ausgegeben werden.

Die Bedingung sind folgende

[...]

Wer kann mir helfen?? Danke schon mal



Versuche es mal mit diesem Makro

8<-[ *Makro* ]->8
Sub Auswerten()
Dim iColor As Integer, strText As String
Dim B As Long, C As Long
Dim lRow As Long

For lRow = 1 To Range("B" & Rows.Count).End(xlUp).Row
B = Cells(lRow, 2).Value
C = Cells(lRow, 3).Value
strText = ""
iColor = 0

If B < 100 And C < 60 Then
strText = "Nie"
iColor = 2 'WEISS
ElseIf B >= 100 And B <= 139 And C >= 60 And C <= 89 Then
strText = "No"
iColor = 10 'GRÜN
ElseIf B >= 140 And B <= 159 And C >= 90 And C <= 99 Then
strText = "LB"
iColor = 6 'GELB
ElseIf B >= 160 And B <= 179 And C >= 100 And C <= 109 Then
strText = "MB"
iColor = 45 'ORANGE
ElseIf B > 180 And C > 110 Then
strText = "SB"
iColor = 3 'ROT
End If
Application.EnableEvents = False
With Cells(lRow, 7)
.Value = strText
.Interior.ColorIndex = iColor
End With
Application.EnableEvents = True
Next
End Sub
8<->8

HTH

und tschüss
Didi
Die Erde ist das einzige Irrenhaus, das von seinen Insassen
verwaltet wird.

Ähnliche fragen