Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle farbig füllen.

Forumthread: Zelle farbig füllen.

Zelle farbig füllen.
28.08.2003 20:45:27
daniel
Hallo Freunde,
Im Archiv habe der CODE gefunden:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) > 10 Then        'hier cells(3,1)=A3
Cells(3, 1) = "ja"
Cells(3, 1).Interior.ColorIndex = 10
Else
Cells(3, 1) = "Nein"
Cells(3, 1).Interior.ColorIndex = 3
End If
End Sub


Der Code füllt, unter bestimmte Bedingungen, Zellen mit Farben.

Die Frage: wie kann man der Code ändern, so dass in ein Kalendar (S.Tabelle) die Wochenenden und die dazugehörige Zellen mit Farbe gefüllt werden???

https://www.herber.de/bbs/user/769.xls
Oder geht auch ohne VBA???

Für eure Hilfe bedanke mich Herzlich.
Ciao Daniel
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle farbig füllen.
28.08.2003 20:51:04
Ramses
Hallo

probier doch mal folgendes,... ist ohne VBA :-)

AW: Zelle farbig füllen.
28.08.2003 21:20:34
Daniel
Hallo Rainer, danke erstmal für dein schnelle Antwort.
Ich habe die bedingte Formatierung bis jezt ni benuzt!
Also.. habe die Zelle markiert (D4:AH57)... die bedingte Formatierung aufgerufen... Formel ist ....=Wochentag($D4;2)>5 ... Format Farbe gewählt.... und bis auf ein paar Spalten ist alles gefüllt!!!!!!! Wieso? Was habe ich falsch gemacht?
Ciao
Daniel
SCHAU MAL...
https://www.herber.de/bbs/user/771.xls
Anzeige
Nur ein Dollarzeichen steht falsch ...
28.08.2003 21:33:02
Volker Croll
Hallo Daniel,

Bereich markieren wie gehabt, dann Formel

statt ....=Wochentag($D4;2)>5 ...
bitte ....=Wochentag(D$4;2)>5 ...

Gruss Volker
AW: Nur ein Dollarzeichen steht falsch ...
28.08.2003 21:39:51
Danke,Danke,Danke
Danke.
Kann nicht sein....
28.08.2003 21:57:36
Ramses
Hallo Volker,

mit dieser Formel ist der Bezug auf die Zeile 4 fixiert und wird nicht angepasst beim kopieren. Alle markierten Zellen werden mit Spalte$4 verglichen.

Meine Formel stimmt schon, wenn allerdings in Spalte D kein Datum steht, kann es zu dem Effekt kommen.

Gruss Rainer
Anzeige
doch, denn seine Tabelle ist anderes aufgebaut ...
29.08.2003 12:20:24
Volker Croll
Hallo Rainer,

schau Dir mal seine Datei an ...
... siehst Du, deshalb war die kleine Aenderung notwendig.

In Deinem Tabellenaufbau ist die Formel natuerlich o.k.!

Gruss Volker
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zelle farbig füllen in Excel


Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel farbig zu füllen, kannst du sowohl VBA als auch die bedingte Formatierung nutzen. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden:

Methode 1: Mit VBA

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge den folgenden Code in das entsprechende Arbeitsblatt ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Cells(1, 1) > 10 Then        'hier cells(3,1)=A3
            Cells(3, 1) = "ja"
            Cells(3, 1).Interior.ColorIndex = 10
        Else
            Cells(3, 1) = "Nein"
            Cells(3, 1).Interior.ColorIndex = 3
        End If
    End Sub
  3. Dieser Code füllt die Zellen abhängig von einem bestimmten Wert in Zelle A1. Du kannst die Logik anpassen, um beispielsweise Wochenenden in einem Kalender farbig zu markieren.

Methode 2: Mit bedingter Formatierung

  1. Markiere den Zellbereich, den du formatieren möchtest (z.B. D4:AH57).
  2. Gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel".
  3. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden".
  4. Gib die Formel =Wochentag(D4;2)>5 ein, um Wochenenden zu identifizieren.
  5. Wähle das gewünschte Format (z.B. Hintergrundfarbe) und klicke auf "OK".

Häufige Fehler und Lösungen

  • Fehler: Zellen werden nicht richtig gefüllt.

    • Lösung: Überprüfe, ob die Formel korrekt eingegeben wurde. Achte darauf, dass du $-Zeichen richtig verwendest. Statt =Wochentag($D4;2)>5 sollte es =Wochentag(D$4;2)>5 heißen, um die Zeile nicht zu fixieren.
  • Fehler: Bedingte Formatierung wird nicht angewendet.

    • Lösung: Stelle sicher, dass alle Zellen im Bereich gültige Datumswerte enthalten. Wenn eine Zelle kein Datum hat, wird die Formatierung möglicherweise nicht angewendet.

Alternative Methoden

Wenn du VBA nicht verwenden möchtest, gibt es auch andere Möglichkeiten, eine Zelle farbig zu markieren:

  • Manuelle Formatierung: Du kannst Zellen manuell auswählen und über das Menü "Start" die Füllfarbe ändern.
  • Bedingte Formatierung: Neben der Wochenend-Formatierung kannst du auch andere Bedingungen festlegen, z.B. für Feiertage oder spezielle Ereignisse.

Praktische Beispiele

  • Beispiel für VBA zur Markierung von Wochenenden:

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim cell As Range
        For Each cell In Range("D4:AH57")
            If Weekday(cell.Value, vbMonday) > 5 Then
                cell.Interior.ColorIndex = 6 ' Gelb für Wochenenden
            Else
                cell.Interior.ColorIndex = xlNone ' Keine Farbe
            End If
        Next cell
    End Sub
  • Beispiel für bedingte Formatierung:

    • Du hast den Zellbereich D4:AH57 mit der Formel =Wochentag(D4;2)>5 und wählst eine Füllfarbe aus.

Tipps für Profis

  • Nutze benannte Bereiche, um deine Formeln klarer zu gestalten.
  • Experimentiere mit verschiedenen ColorIndex-Werten in VBA, um unterschiedliche Farben zu verwenden.
  • Dokumentiere deine VBA-Codes, um sie später einfacher anpassen zu können.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe einer Zelle in VBA ändern?
Du kannst die Farbe einer Zelle mit der Interior.ColorIndex-Eigenschaft ändern. Beispiel: Cells(1, 1).Interior.ColorIndex = 10.

2. Funktioniert die bedingte Formatierung in allen Excel-Versionen?
Ja, die bedingte Formatierung ist in den meisten Excel-Versionen verfügbar. Stelle sicher, dass du eine Version verwendest, die diese Funktion unterstützt.

3. Kann ich mehrere Bedingungen für die farbige Markierung verwenden?
Ja, du kannst mehrere Regeln in der bedingten Formatierung hinzufügen, um unterschiedliche Kriterien zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige