Office: (Office 365) Leere Zelle farblich füllen

Hallo an die Excel-Experten,
ich möchte eine leere Zelle mit der Farbe der darüberstehende Zelle (mit Textinhalt) automatisch befüllen. Wenn in der leeren Zelle ein Text (Name) eingefügt wird, so diese Zelle mit der dem Namen in der Bedingten Formatierung zugewiesenen Farbe gefüllt werden.

Beispiel-Tabelle ist beigefügt.
So soll zum Beispiel in der 2. Woche die leere Zelle D5 rot ausgefüllt werden, oder in der 4. Woche die leere Zelle F8 blau ausgefüllt werden.

Ich habe im Netz gesucht, aber keine richtige Lösung gefunden.

Vielen Dank für die Unterstützung.
Gruß Banker68

 

Hi,

man kann mit Bordmitteln keine Bedingten Formate aus anderen Zellen auslesen.
Sag doch mal was zum Hintergrund des Farbspiels - bestimmt gibt es eine andere Lösung.

 

Hallo Boris,

es handelt sich um eine größere umfangreichere Tabelle. Hintergrund ist der, dass auch die Zellen bei einer Nicht-Zweitbesetzung mit der Farbe der Erstbesetzung gefüllt werden. So dass beide Zellen mit der Farbe der Erstbesetzung gefüllt sind. Es sollten, wenn möglich, keine weißen Zellen vorhanden sein.

 

Hi,

wie schon geschrieben, funktioniert das so nicht mit Bordmitteln - allenfalls mit VBA (was in Summe wesentlich einfacher wäre, da Du dann auch komplett auf die Bedingte Formatierung verzichten kannst). Dazu würde man das Change-Ereignis des Blattes nutzen und damit die Hintergrundfarben festlegen. Vorbereitend legst Du nur eine Namensliste an und färbst die Namen mit den gewünschten Farben. Dann kann man den Namen aus dieser Liste ermitteln und daraus auch die Hintergrundfarbe auslesen. Mehr dazu aber nur, falls VBA überhaupt in Frage kommt.

 

Hi,

z.B. so:

 

Hallo,
ja habe ich mir das vorgestellt.

=ISTZAHL(SUCHEN("David";C4))+(C4="")*ISTZAHL(SUCHEN("David";C3))*(ZEILE()<>6)
Die Formel verstehe ich soweit, bis auf den Teil: C3))*(ZEILE()<>6)
Warum C3 und was bedeutet *(ZEILE()<>6)
Ich bin nicht der absolute Excelprofi. Es reicht nur für den Hausgebrauch.
Gruß Banker68

 

Hi,

Edgars Vorschlag funktioniert natürlich - aber es muss jede Bedingung einzeln zusätzlich geprüft (addiert) werden. Ich bin davon ausgegangen, dass es am Ende noch mehr Namen sind - und dann wird das mit der Bedingten Formatierung ne ziemliche Fummelei.
Ich halte VBA hier für das bessere Mittel der Wahl. Sind nur ein paar Codezeilen - und die Anzahl der Namen ist beliebig erweiterbar.

 

Hi,

laß das (Zeile()<>6 mal weg, dann siehst Du wofür das gut ist.
Wichtigere Frage ist, warum ISTZAHL(SUCHEN ?
Wenn nur die Namen in der Zelle stehen reicht doch das:
=(C4="David")+(C3=David)*(Zeile()<>6)

 

Ich häng Dir den VBA-Vorschlag mal an, da ich ihn eh grad fertig habe.

 

Hi Boris,

die Datei ist geschützt. Ich komme nicht an die Einstellungen.

Gruß Banker 68

 

In der Datei ist nichts geschützt. Du musst bei Dir oben in der Leiste den Button "Bearbeitung aktivieren" betätigen. Das gilt aber für alle Downloads.
Und Du musst die Makros aktivieren.

 

Hi,

ich hatte im dem Code noch eine Winzigkeit vergessen. Hier der angepasst Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myColor As Long, C As Range
With Target
    If .Count = 1 Then
        'in Spalte M stehen die hintergrundgefärbten Namen
        Set C = Range("M:M").Find(.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not C Is Nothing Then
            myColor = IIf(.Value <> "", C.Interior.Color, xlNone)
            .Interior.Color = myColor
            'falls sich der EIntrag auf die 1. Besetzung bezieht
            If Cells(.Row, 2) = "1. Besetzung" Then
                'prüfen, ob die Zelle darunter leer ist...
                If .Offset(1, 0) = "" Then
                    'falls ja: Dieser Zelle die selbe Hintergrundfarbe zuweisen
                    .Offset(1, 0).Interior.Color = myColor
                End If
            End If
        Else
            .Interior.Color = xlNone
        End If
    End If
End With
End Sub

 

Hi Boris,

VBA ist nicht so mein Ding. Da kenne ich mich zu wenig aus. Trotzdem tausend Dank für die Informationen.

Gruß Banker68

 

Hi Edgar,

ich werde das mit der Formel in der Bedingten Formatierung mal ausprobieren. Tausned Dank für Deine Unterstützung.

Gruß Banker68

 

VBA ist nicht so mein Ding. Da kenne ich mich zu wenig aus. Trotzdem tausend Dank für die Informationen.

Ich habe Dir doch die Mappe anwendungsfertig angehängt. Anbei auch nochmal mit dem etwas geänderten Code.