ich benötige für ein VBA-Projekt - Relative/Absolute Zellbezüge im Format: $A$1:A112
für diverse Formeln wie:
{=SUMME(WENN($C$4:C112="";0;1/ZÄHLENWENN($C$4:C112;$C$4:C112)))}
=TEILERGEBNIS(103;$H$4:H112)
..
Momentan wandle ich mit folgendenem Code:1.) Durchlauf:
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
Ergebnis - sämtliche Zellbezüge nach: $A$1:$A$112
2.) Durchlauf:
For i = 1 To conRange.Areas.Count
Cells.Replace What:=":$", Replacement:=":", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
Ergebnis - sämtliche Zellbezüge nach: $A$1:A$112
nun sollte das noch das letzte $ in :A$112 bereinigt werden.
geht das eventuell mit Wildcards in Suche/ersetzen? (gibt es solche? google hat nicht geholfen)
(Spalten max AA, Zeilen max. 9999)
Grüsse
Ricarda