eine Frage:
ist es möglich Zellen mit Zellbezügen im Nachgang die Zeilen- u. Spaltenfixierungen automatisch für alle ausgewählten Zellen hinzuzufügen (quasi F4 drücken und alle Zellen haben besagte Fixierungen...)?
Auf eine Antwort freut sich
Mike
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
Sub AbsoluteBezuege()
Dim myRange As Range
For Each myRange In ActiveSheet.UsedRange
If myRange.HasFormula Then
If myRange.HasArray Then
If Application.ReferenceStyle = xlR1C1 Then
myRange.FormulaArray = Application.ConvertFormula(myRange.Formula, xlR1C1, , xlAbsolute)
Else
myRange.FormulaArray = Application.ConvertFormula(myRange.Formula, xlA1, , xlAbsolute)
End If
Else
If Application.ReferenceStyle = xlR1C1 Then
myRange.Formula = Application.ConvertFormula(myRange.Formula, xlR1C1, , xlAbsolute)
Else
myRange.Formula = Application.ConvertFormula(myRange.Formula, xlA1, , xlAbsolute)
End If
End If
End If
Next
End Sub