O
oli
Hello,
I want to find the cells with absolute reference and the ones without
abolute reference.
I tried this way (seems to work ...):
Option Explicit
Sub check_ref()
Dim vAnzZeilen As Long, vZnr As Long
Dim vInCell As String
vAnzZeilen = Worksheets(1).UsedRange.Rows.Count
MsgBox "rows: " & vAnzZeilen
For vZnr = 2 To vAnzZeilen
vInCell = Worksheets(1).Cells(vZnr, 1).FormulaLocal
' check content of the cell
If InStr(vInCell, "$") Then
Debug.Print vInCell & ": absolute"
Else
Debug.Print vInCell & ": relative"
End If
Next vZnr
End Sub
Is there a better way (function or method) to do this.
I would like to do the same check to find which cells refenrences a
name.
Thanks.
Olivier
I want to find the cells with absolute reference and the ones without
abolute reference.
I tried this way (seems to work ...):
Option Explicit
Sub check_ref()
Dim vAnzZeilen As Long, vZnr As Long
Dim vInCell As String
vAnzZeilen = Worksheets(1).UsedRange.Rows.Count
MsgBox "rows: " & vAnzZeilen
For vZnr = 2 To vAnzZeilen
vInCell = Worksheets(1).Cells(vZnr, 1).FormulaLocal
' check content of the cell
If InStr(vInCell, "$") Then
Debug.Print vInCell & ": absolute"
Else
Debug.Print vInCell & ": relative"
End If
Next vZnr
End Sub
Is there a better way (function or method) to do this.
I would like to do the same check to find which cells refenrences a
name.
Thanks.
Olivier