Thema Datum  Von Nutzer Rating
Antwort
28.06.2016 10:06:03 Tim
NotSolved
28.06.2016 10:21:18 Gast46829
NotSolved
Rot Vergleich funktioniert nicht
28.06.2016 11:34:04 Gast9017
NotSolved

Ansicht des Beitrags:
Von:
Gast9017
Datum:
28.06.2016 11:34:04
Views:
610
Rating: Antwort:
  Ja
Thema:
Vergleich funktioniert nicht

Hallo! Also habe es mal so wie unten getestet (mit deinem Code) und funktioniert. Wie weist du den die Wert von Max und Min für die Grenze zu und als was sind die deklariert (habe ich oben weggelassen)? Vermute mal, dass dort der Fehler liegen wird. VG

 

Sub test()

anzahl_zeilen = 10
untere_grenzwert = 80
obere_grenzwert = 90

For Z = 2 To anzahl_zeilen
          erm_Wert = Cells(Z, 2).Value
       
          If erm_Wert > untere_grenzwert And erm_Wert < obere_grenzwert Then
              Cells(Z, 2).Interior.Color = RGB(255, 0, 0)
              anzahl_grenzwerte = anzahl_grenzwerte + 1
 
          ElseIf erm_Wert < untere_grenzwert Or erm_Wert > obere_grenzwert Then
              Cells(Z, 2).Interior.Color = RGB(255, 255, 255)
 
          End If
  Next Z


End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.06.2016 10:06:03 Tim
NotSolved
28.06.2016 10:21:18 Gast46829
NotSolved
Rot Vergleich funktioniert nicht
28.06.2016 11:34:04 Gast9017
NotSolved