Hilfe bei Code absoluter/relativer Bezug?
01.12.2004 15:40:58
Thomas_H
Ich bastle gerade an einem Code herum und komme nicht weiter...
Ich möchte gerne per VBA ermitteln ob in einer Zelle ein relativer oder ein absoluter Zellenbezug verwendet wird. Je nachdem soll er dann die Auswahl umwandeln. Leider funktioniert er nicht!!!! Was stimmt nicht bei meinem Code:
Sub Test()
Dim c As Range
On Error Resume Next
For Each c In Selection
If c.HasFormula = True And c.Formula = xlRelative Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
Else
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlRelative)
End If
Next
End Sub
Danke für eure Hilfe, Thomas H.