Thema Datum  Von Nutzer Rating
Antwort
Rot Wenn falsch, dann formatieren
04.09.2021 14:13:40 Lisa
NotSolved
04.09.2021 16:55:20 volti
NotSolved
04.09.2021 18:07:57 Gast94056
NotSolved
04.09.2021 18:23:34 volti
NotSolved
04.09.2021 19:45:34 volti
NotSolved

Ansicht des Beitrags:
Von:
Lisa
Datum:
04.09.2021 14:13:40
Views:
70
Rating: Antwort:
  Ja
Thema:
Wenn falsch, dann formatieren

Hi ich hätte ein Problem bei meinem Code und zwar möchte ich in zwei Spalten erstmal schauen, ob das Wort drinsteht und wenn ja, dann in der übernächsten Zelle der selben Zeile prüfen, ob der Wert in einer bestimmten Toleranz liegt. Wenn ja soll die Schriftfrbe schwarz bleuben, wenn nicht dann soll die Schriftfarbe rot werden. Dies ist mein Ansatz

 

Option Explicit

Sub Pruefung()

With ThisWorkbook.ActiveSheet

Dim Zelle1 As Range

Dim Zelle2 As Range

For Each Zelle1 in Range ("C:C")

For Each Zelle2 in Range ("D:D")

If Zelle1 = "Limo" And Zelle2 = "KVP" Then

ActiveCell.Offset(0,2).Select

If Active.Cell.Value < "7" And ActiveCell.Value > "9" Then ActiveCell.Font.Color = RGB (255, 0, 0)

Else: Active.Cell.Font.Color = RGB (255, 255, 255)

Next

Next

End with

End Sub

 

Danke schon mal!


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
Rot Wenn falsch, dann formatieren
04.09.2021 14:13:40 Lisa
NotSolved
04.09.2021 16:55:20 volti
NotSolved
04.09.2021 18:07:57 Gast94056
NotSolved
04.09.2021 18:23:34 volti
NotSolved
04.09.2021 19:45:34 volti
NotSolved