Office: (Office 2013) Wenn Zelle leer dann andere Zelle färben

Moin moin,

ich habe einen Code der zwar für seine Verhältnisse funzt, aber ich hätte ihn gerne für meine Bedürfnisse angepasst. So müsste er ein bissel umgeschrieben werden.

Private Sub Worksheet_Change(ByVal Target As Range)

'Wenn in Spalte C (=Spalte 18) in irgendeine Zelle etwas geschrieben wird _
(außer x oder eben ""), dann soll die Schriftfarbe rot werden
If Target.Column = 18 Then
If Target "x" And Target "" Then
Target.Font.Color = RGB(255, 0, 0)
End If
End If
End Sub

Anpassung...

Wenn Zelle im Bereich M8:M68 leer, dann jeweils in den Nachbarzellen B,C,D,E,G die vorhandenen Einträge in rot färben (Schriftfarbe). Wenn Einträge im Bereich M8:M68 vorhanden, dann Schriftfarbe wieder schwarz.


Wäre super wenn mir jemand das so bauen könnte*Smilie


Gruß Toschi

:)

 

Halo Toschi,

mache es ohne VBA, mit bedingter Formatierung.

 

Hallo Hajo,

ich hatte auf Deiner Page gesucht aber nichts gefunden und habe es jetzt erstmal so gelöst.

=UND(M8="";B8"") Schriftfarbe rot
=UND(M8=1;B8="") keine Formatierung
=UND(M8="";C8"") Schriftfarbe rot
=UND(M8=1;C8="") keine Formatierung
=UND(M8="";D8"") Schriftfarbe rot
=UND(M8=1;D8="") keine Formatierung
=UND(M8="";E8"") Schriftfarbe rot
=UND(M8=1;E8="") keine Formatierung
=UND(M8="";G8"") Schriftfarbe rot
=UND(M8=1;G8="") keine Formatierung

Somit wäre die Abfrage für Zelle M8 geklärt. Ich muss aber M8:M68 abfragen.

Kann man das auch zusammenfassen?


Gruß Toschi

 

übertrage das Format auf die restlichen Zellen.

 

Da kann ich jetzt nicht folgen.

 

benutze den Formatpinsel.
Start, Zwischenablage, Format übertragen.

 

Moin Hajo,

das war mir dann doch etwas zu kompliziert mit "bedingter Formatierung". Habe es dann doch noch geschafft mir ein VBA-Code zu basteln.

Sub Worksheet_Change(ByVal target As Range)

'Wenn Zelle leer dann die Schriftfarbe der Nachbarzellen ändern
Dim ZelleL As Integer
For ZelleL = 8 To 68
If Cells(ZelleL, 13).Value = "" Then
Range(Cells(ZelleL, 2), Cells(ZelleL, 9)).Font.Color = RGB(255, 0, 0)
End If
If Cells(ZelleL, 13).Value "" Then
Range(Cells(ZelleL, 2), Cells(ZelleL, 9)).Font.Color = RGB(0, 0, 0)
End If
Next
End Sub


Trotzdem danke für Deine Unterstützung.


Gruß Toschi