title image


Smiley Makro ändern
Hallo Klaus,



so ähnlich sollte es gehenSub Makro1()

ActiveWorkbook.ExclusiveAccess

KW = DatePart("ww", Date)

For i = 1 To 3

With Sheets(i).Range("P3:P90")

.FormatConditions.Delete

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

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

.FormatConditions(1).Interior.ColorIndex = 3

End With

Next

ActiveWorkbook.KeepChangeHistory = True

ActiveWorkbook.SaveAs Filename:="C:\KW" & KW & ".xls"", AccessMode _

:=xlShared

End SubNicht getested ist der With-Block, d.h. die Bedingte Formatierung die da vorgenommen wird.



Gruß, Frank



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: