Hey, ich brauch mal euren Rat. Ich sitze seit ein paar Tagen an einer Excel Tabelle, die eine Auswertung von Messdaten machen soll. Jetzt wollte ich die Bedingte Formatierung so optimieren, dass er mir die Toleranzbereiche (farblich gesehen) umdreht wenn ich zwischen Außen- und Innenmaß unterscheide. Also wenn bei Außenmaß Sollwert+ oberes Grenzmaß gelb wird soll es bei Innenmaßen rot werden. Soweit funktioniert das ganze schon für eine Spalte, ich habe aber 16 Spalten. Der Sollwert, oberes Grenzabmaß und unteres Grenzabmaß sind je Spalte anders (da verschiede Maße mit verschiedenen Toleranzen ausgewertet werden). SChaut mal bitte drüber und über jede Hilfe bin ich sehr Dankbar
Dim bereich, zelle As Range
Set bereich = Range("A1:A6")
Dim Sollwert As Double 'Komma Variable
Dim TolleranzOben As Double
Dim TolleranzUnten As Double
For Each zelle In bereich
'Bedigung für Außendurchmesser
If Range("G2") = "außen" Then
If zelle = "" Then zelle.Interior.ColorIndex = 15: GoTo weiter 'leere Zelle grau färben
Sollwert = Range("E2") 'Sollwert auslesen in Zelle B3
TolleranzOben = Range("E3") '+Tolleranz auslesen in Zelle B64
TolleranzUnten = Range("E4") '-Tolleranz auslesen in Zelle B65
zelle.Interior.ColorIndex = 38 'rot
If zelle.Text <= (Sollwert + TolleranzOben) And zelle.Text >= (Sollwert + TolleranzUnten) Then zelle.Interior.ColorIndex = 10 'grün
If zelle.Text > (Sollwert + TolleranzOben) Then zelle.Interior.ColorIndex = 36 'gelb
'Bedingung für Innendurchmesser
ElseIf Range("G2") = "innen" Then
If zelle = "" Then zelle.Interior.ColorIndex = 15: GoTo weiter 'leere Zelle grau färben
Sollwert = Range("E2") 'Sollwert auslesen in Zelle B3
TolleranzOben = Range("E3") '+Tolleranz auslesen in Zelle B64
TolleranzUnten = Range("E4") '-Tolleranz auslesen in Zelle B65
zelle.Interior.ColorIndex = 38 'rot
If zelle.Text <= (Sollwert + TolleranzOben) And zelle.Text >= (Sollwert + TolleranzUnten) Then zelle.Interior.ColorIndex = 10 'grün
If zelle.Text < (Sollwert + TolleranzUnten) Then zelle.Interior.ColorIndex = 36 'gelb
End If
weiter:
Next
End Sub
|