AW: fixieren der Zellen
19.02.2007 15:18:00
Walburga
Hi Vossi
vielleicht hilft Dir dies:
Sub RelativZuAbsolut()
Dim rngF As Range
On Error Resume Next
For Each rngF In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
rngF.Formula = Application.ConvertFormula(rngF.Formula, xlA1, xlA1, xlAbsolute)
Next rngF
End Sub
und wieder zurück das Ganze:
Sub AbsolutZuRelativ()
Dim rngF As Range
On Error Resume Next
For Each rngF In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
rngF.Formula = Application.ConvertFormula(rngF.Formula, xlA1, xlA1, xlRelative)
Next rngF
End Sub
eine lieben Gruss
Walburga