Ich habe folgendes Makro
'Makro am 03.10.2015 von Andreas Rohrbeck aufgezeichnet
'Prüfen der Zeile im Tabellenblatt ob angegebener Bereich (in Zeile) leer ist
'wenn Zeilenbereich "J:AN" leer ist dann Schriftfarbe Spalte "AQ" auf Weiß setzen
'wenn im Zeilenbereich "J:AN" etwas steht dann soll Schriftfarbe in Spalte "AQ" in gleicher Zeile auf Rot gesetzt werden
Sub ZeilenBereich() Dim Zelle As Range, Leer As Boolean Leer = True For Each Zelle In Range("J14:AN14") If Not IsEmpty(Zelle) And Not IsNull(Zelle) And Not Zelle = "" Then Leer = False Exit For End If Next Zelle If Leer = True Then Range("AQ14").Font.ColorIndex = 2 'Schriftfarbe wird auf Weiß gesetzt Else Range("AQ14").Font.ColorIndex = 3 'Schriftfarbe wird auf Rot gesetzt End If End Sub
Ich möchte das dieses Makro im Tabellenblatt Januar, Februar März,usw
Wie aus der Datei ersichtlich
Alle Zeilen im jeweiligen Tabellenblatt so abgearbeitet werden das beginnend ab Zeile 14 bis Zeile 200 wenn im Bereich Spalte J:AN nichts steht (Zellen leer sind in Spalte AQ der jeweiligen Zeile die Schriftfarbe auf Weiß gesetzt wird. Wenn im Bereich Spalte J:AN etwas steht (eine oder mehrere Zellen befüllt sind in Spalte AQ der jeweiligen Zeile die Schriftfarbe auf Rot gesetzt wird
Ich habe bereits alles Versucht auch mit bedingter Formatierung bin ich nicht zu einem Ergebnis gekommen. Ich hoffe einer von Euch kann mir da vielleicht weiterhelfen und den Code so abändern, das er durch eine Schleife alle belegten Zeilen entsprechend (ZeilenBereich ist leer die Schriftfarbe in Spalte AQ oder im ZeilenBereich steht etwas drin die Schriftfarbe in Spalte AQ dementsprechend automatisch ändert
Für Eure Bemühungen bedanke ich mich bereits ganz Herzlich
Liebe Grüße Andreas