Zelle farblich markieren

Dieses Thema Zelle farblich markieren im Forum "Microsoft Office Suite" wurde erstellt von nok106, 29. Mai 2007.

Thema: Zelle farblich markieren Hallo Excelfreunde ! In meiner Tagestabelle habe ich den folgenden Code erstellt, der beim öffnen der Datei das...

  1. Hallo Excelfreunde !

    In meiner Tagestabelle habe ich den folgenden Code erstellt,
    der beim öffnen der Datei das aktuelle Datum markiert.
    Nun möchte ich die Zelle noch farblich kennzeichnen.

    Code:
    Option Explicit
    Private Sub Workbook_Open()
       With Tabelle1
       .Cells(Day(Date) + 2, (Month(Date))).Select
       End With
    End Sub
    Hat jemand eine Idee ob das geht und wenn ja - Wie ?

    Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

    MfG Odje
     
  2. Hallo nok106,

    wenn du den makro wie folgt erweiterst, wird der Zell-Hintergrund knallrot gesetzt.

    gruß Matjes :)
    Code:
    Private Sub Workbook_Open()
       With Tabelle1
       .Cells(Day(Date) + 2, (Month(Date))).Select
       Selection.Interior.ColorIndex = 3
       End With
    End Sub
     
  3. Hallo Matjes,

    für deine Hilfe besten Dank.

    Gruß Odje
     
  4. Hallo Matjes,

    noch eine Bitte:

    Wie könnte man beim Datumwechsel die vorhergehende Zellen-Markierung löschen ?

    Ich habe mit Interior.ColorIndex = xlColorIndexNone verschiedene Versuche gestartet,
    bekomme das Ding aber nicht geschaukelt.

    Gruß Odje
     
  5. Hallo nok106,

    da kannst du 2 Wege gehen:

    a) den gesamten möglichen Bereich beim öffnen farblos setzen
    Code:
    Private Sub Workbook_Open()
        With Tabelle1
         .Range(.Cells(1+2, 1), .Cells(31+2, 12)).Interior.ColorIndex = xlColorIndexNone
         .Cells(Day(Date) + 2, (Month(Date))).Select
         Selection.Interior.ColorIndex = 3
       End With
    End Sub
    b) beim Schliessen der Datei, die Zelle wieder farblos setzen
    (klappt nur bei Nicht-Nachtarbeitern  ;) )
    Code:
    Private Sub Workbook_Close()
        With Tabelle1
         .Cells(Day(Date) + 2, (Month(Date))).Select
         Selection.Interior.ColorIndex = xlColorIndexNone
       End With
    End Sub
    Gruß Matjes :)
     
  6. Hallo Matjes,

    Danke.

    Gruß Odje
     
Die Seite wird geladen...

Zelle farblich markieren - Ähnliche Themen

Forum Datum
Einzelne Zellen in Spalte bedingt Formatieren Microsoft Office Suite 16. Mai 2016
Hintergrundfarbe hinter ausgeblendeten Zellen und Spalten.... Microsoft Office Suite 20. Okt. 2015
onChange Inhalt einer Zelle in eine andere Zelle kopieren StarOffice, OpenOffice und LibreOffice 22. Mai 2014
Excel 2010 Wenn Zelle leer dann, Wenn in Zelle x dann Windows XP Forum 28. Nov. 2013
Zellen je nach Inhalt automatisch in richtige Spalte verschieben Microsoft Office Suite 15. Juli 2013