absolute Bezüge automatisch setzen

[Johny.E]

Hallo alle zusammen,

ich hatte unter Office 2019 noch dieses kleine Tool laufen:
absolute Bezüge automatisch setzen | HERBERS Excel Forum
damit lässt sich massenhaft Zeit sparen, wenn man viele Zellen mit absoluten Bezügen braucht. Wer es nicht kennt, schaut euch bitte die Page an.
Mein Problem ist, dass dieses absrel leider unter Office 365 nicht funktioniert. Kennt jemand ein andres Tool was selbiges machen kann?

Vielen Dank schonmal für euer Feedback.
Liebe Grüße
Johny.E

[hddiesel]

Hallo Johny,

der Link  https://www.herber.de/bbs/texte/absrel.zip scheint nicht zu funktionieren.

Selbst benutze ich schon viele Jahre diese Makros, in Verbindung mit je einem Icon in der Menüleiste.

Code:

'
' Bereich markieren und Makro aufrufen
'
Public Sub AbsoluteBezüge()
    Dim c As Range
      For Each c In Selection
        If c.HasFormula = True Then
          c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
        End If
      Next
End Sub

Code:

'
' Bereich markieren und Makro aufrufen
'
Public Sub RelativeBezüge()
    Dim c As Range
      For Each c In Selection
        If c.HasFormula = True Then
          c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlRelative)
        End If
      Next
End Sub

[Johny.E]

Hi Karl,

vielen Dank. Ich werds probieren. Wünsche dir einen schönen abend!

Gruß
Johny