Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten einfärben
 19.11.2020 09:26:33 Jens
NotSolved
19.11.2020 11:05:06 volti
NotSolved
19.11.2020 11:23:31 Jens
Solved

Ansicht des Beitrags:
Von:
Jens		 Datum:
19.11.2020 09:26:33		 Views:
1057		 Rating:
     
Antwort:
  Ja
Thema:
Spalten einfärben

Hallo zusammen,

ich habe folgendes Problem:

Sub ColorColumns()

Dim c As Range
Dim m As Date

m = Now()

    For Each c In Sheets("FC Data").Range("G13:ZZ13").Cells
        If c.Value < DateAdd("m", 2, m) Then
            c.EntireColumn.Interior.ColorIndex = 3
            ElseIf c.Value < DateAdd("m", 3, m) Then
                c.EntireColumn.Interior.ColorIndex = 6
        End If
    Next c
    
End Sub

Wie schaffe ich es, dass nicht die gesamte Spalte eingefärbt wird (sofern die Bedingung erfüllt ist), sondern das Einfärben erst ab Zeile 17 abwärts beginnt. Also ich möchte verhindern, dass die Zeilen 1-16 einer Spalte bei erfüllter Bedingung nicht gefärbt wird.

Danke für Eure Unterstützung!

Jens

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 Spalten einfärben
 19.11.2020 09:26:33 Jens
NotSolved
19.11.2020 11:05:06 volti
NotSolved
19.11.2020 11:23:31 Jens
Solved