absolute Bezüge umwandel
29.06.2006 08:56:46
Jutta
ich habe dieses Klasse Makro zum Umwandeln von Formeln in absolute Bezüge gefunden:
Sub AbsoluteBezuege()
Dim myRange As Range
For Each myRange In ActiveSheet.UsedRange
If myRange.HasFormula Then
If myRange.HasArray Then
myRange.FormulaArray = Application.ConvertFormula(myRange.Formula, xlA1, , xlAbsolute)
Else
myRange.Formula = Application.ConvertFormula(myRange.Formula, xlA1, , xlAbsolute)
End If
End If
Next
End Sub
Leider wandelt es mir damit alle Formeln im Tabellenblatt um.
Wie muss es heißen,damit es mir nur die Formeln im markierten Bereich umwandelt ?
Gruß
Jutta