Formelbezüge absolut setzen, Makro funktioniert nicht immer
05.04.2024 09:24:25
OnkelTom
ich habe vor längerer Zeit hier im Forum zwei Makros gefunden mit denen sich Formelbezüge absolut oder relativ setzen lassen:
Sub absolut()
Set conRange = Selection.SpecialCells(Type:=xlFormulas)
For i = 1 To conRange.Areas.Count
conRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=conRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next
End SubSub relativ()
Set conRange = Selection.SpecialCells(Type:=xlFormulas)
For i = 1 To conRange.Areas.Count
conRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=conRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
Next
End SubDiese beiden Makros funktionieren auch ganz hervorragend. Zumindest bisher. Nun bin ich auf einen Fall gestoßen bei dem die Makros einen Fehler produzieren:
Wenn ich versuche die Bezüge in dieser langen, verschachtelten, Formel mit den Makros zu verändern erhalte ich im Ergebnis nur "#WERT"
=WENNFEHLER(SUMME(AUFRUNDEN(RUNDEN($M$56*'Tab3'!$CK$7*$H$55/'Tab1'!$BH$14;1);0);AUFRUNDEN(RUNDEN($M$56*'Tab3'!$CL$7*$H$55/'Tab1'!$BH$14;1);0);AUFRUNDEN(RUNDEN($M$56*'Tab3'!$CM$7*$H$55/'Tab1'!$BH$14;1);0);AUFRUNDEN(RUNDEN($M$56*'Tab3'!$CN$7*$H$55/'Tab1'!$BH$14;1);0));0)
Wenn ich die Formel aber einkürze klappt es.
=WENNFEHLER(SUMME(AUFRUNDEN(RUNDEN($M$56*'Tab3'!$CK$7*$H$55/'Tab1'!$BH$14;1);0));0)
Kann mir jemand sagen woran das liegt?
Vielen Dank im Voraus!
Anzeige