Thema Datum  Von Nutzer Rating
Antwort
04.10.2022 12:30:54 Gast83872
NotSolved
Blau Ohne bedingte Formatierung
 04.10.2022 12:54:45 Mase
NotSolved
04.10.2022 14:46:35 Gast83872
NotSolved
04.10.2022 15:10:07 Mase
Solved
04.10.2022 15:12:50 Mase
NotSolved
04.10.2022 15:29:12 Gast83872
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
04.10.2022 12:54:45		 Views:
195		 Rating:
     
Antwort:
  Ja
Thema:
Ohne bedingte Formatierung

und ohne Fehlerbehandlung, folgenden Code in den Codebereich des Arbeitsblatts:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F:F")) Is Nothing Then
        Select Case True
            Case (Target.Value Mod 2) = 0
                '*** Code bei gerade
                Range(Cells(Target.Row, "A"), Cells(Target.Row, "F")).Interior.Color = RGB(220, 220, 220)
            Case (Target.Value Mod 2) = 1
                '*** Code bei ungerade
                Range(Cells(Target.Row, "A"), Cells(Target.Row, "F")).Interior.Color = -4142
        End Select
    End If
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
04.10.2022 12:30:54 Gast83872
NotSolved
Blau Ohne bedingte Formatierung
 04.10.2022 12:54:45 Mase
NotSolved
04.10.2022 14:46:35 Gast83872
NotSolved
04.10.2022 15:10:07 Mase
Solved
04.10.2022 15:12:50 Mase
NotSolved
04.10.2022 15:29:12 Gast83872
NotSolved