title image


Smiley so, wie JerryB gepostet hat
Hallo,



na, wer sagt's denn - man muß nur die richtigen Fragen stellen. So sollte es dann gehen:Sub ausfüllen()

ActiveWorkbook.ExclusiveAccess

For i = 1 To 5

Sheets(i).Activate

With Range(Cells(3, 16), Cells(90, 16))

.Activate

.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=UND(B3"""";P3="""")"

.FormatConditions(1).Interior.ColorIndex = 3

End With

Next

ActiveWorkbook.KeepChangeHistory = True

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.FullName, AccessMode _

:=xlShared

End SubGruß, Frank



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: