title image


Smiley endlich Erster!!
Hi,



Sub test()

Dim zelle, ws

For Each ws In Worksheets

For Each zelle In ws.Cells.SpecialCells(xlCellTypeFormulas, 23)

zelle.Formula = zelle.Value

Next

Next

End Sub
Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: