title image


Smiley Dann nochmal das komplette Makro
Hallo Klaus,



neuer Versuch:Sub Makro1()

ActiveWorkbook.ExclusiveAccess

For i = 1 To 5

With Sheets(i).Cells(3,16)

.FormatConditions.Delete

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

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

.FormatConditions(1).Interior.ColorIndex = 3

End With

For j=3 To 89

Sheets(i).Cells(j, 16).Copy

Sheets(i).Cells(j + 1, 16).FormatConditions.Delete

Sheets(i).Cells(j + 1, 16).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

Next

Next

ActiveWorkbook.KeepChangeHistory = True

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

:=xlShared

End SubDie zweite Schleife füllt Dir die bed. Formatierungen nach unten aus.



Gruß, Frank



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: