Thema Datum  Von Nutzer Rating
Antwort
Rot bedingte formatierung
 03.07.2007 16:24:28 Sebastian
NotSolved
03.07.2007 21:02:03 Sozu
NotSolved
04.07.2007 06:59:17 Sebastian
NotSolved
04.07.2007 21:22:48 Sozu
NotSolved

Ansicht des Beitrags:
Von:
Sebastian		 Datum:
03.07.2007 16:24:28		 Views:
2311		 Rating:
     
Antwort:
  Ja
Thema:
bedingte formatierung
Hallo!

Hab ein Problem mit der bedingten Formatierung. Die Zellen sollen mit einer Farbe hinterlegt werden wenn eine gewisse Bedingung erfüllt ist (z.B.: das Datum erreicht oder ein gewisser Text wie erledigt in einer Zelle steht. Hab es mit diesem Code versucht.

Dieser Text geht:

Dim cell As Range

For Each cell In Range("J2:L1000")


If cell.Value <= Date Then cell.Interior.ColorIndex = 3

If cell.Value = "" Then cell.Interior.ColorIndex = xlcolornone

Application.ScreenUpdating = False

Next

Dieser nicht wäre mir aber lieber:

Dim Zeile As Long
Dim ZeileMax As Long

Application.ScreenUpdating = False 'zeigt Excelarbeit im Hintergrund nicht

Tabelle1.Activate

ZeileMax = Cells.Find("*", , , , xlByRows, xlPrevious).Row 'schaut wieviele Zeilen benutzt sind

With Tabelle1 'hier wird festgelegt in welcher Tabelle die Markierungen gemacht werden

For Zeile = 2 To ZeileMax 'Ermittlung der Maximal benutzten Zeilen

If Cells(Zeile, 9).Value = Date Then cell.Interior.ColorIndex = 10

Else

End If

Next Zeile

End With

Benötige dringend Hilfe!!!!!!

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 bedingte formatierung
 03.07.2007 16:24:28 Sebastian
NotSolved
03.07.2007 21:02:03 Sozu
NotSolved
04.07.2007 06:59:17 Sebastian
NotSolved
04.07.2007 21:22:48 Sozu
NotSolved