AW: Formeln mit $ versehen
10.03.2006 10:08:59
UweD
Hallo Oliver
Wenn es mehrere Formeln sind.. Bereich markieren und Makro starten
Sub Makro1()
Dim Z
For Each Z In Selection
'Beispiel für $A1
Z.FormulaLocal = Application.ConvertFormula _
(Formula:=Z.FormulaLocal, _
fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, _
ToAbsolute:=xlRelRowAbsColumn)
Next
End Sub
Sub Makro2()
Dim Z
For Each Z In Selection
'Beispiel für $A$1
Z.FormulaLocal = Application.ConvertFormula _
(Formula:=Z.FormulaLocal, _
fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, _
ToAbsolute:=xlAbsolute)
Next
End Sub
Gruß UweD
(Rückmeldung wäre schön)