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:
61
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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