title image


Smiley Re: Bestimmte Anzahl von Einträgen einfärben
Hallo Herby



und wenn die Mappe neu geöffnet wird....



Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B2:L50")) Is Nothing Then

If WorksheetFunction.CountIf(Range("B2:L50"), "" & "") <= 5 Then 'den 5 er anpassen

Target.Font.ColorIndex = 3

Else

Target.Font.ColorIndex = 1

End If

End If

End Sub



ich würde das empfehlen


Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: