Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Formeln absolut setzen
In einer Exceltabelle sollen alle Formeln innerhalb eines markierten Bereichs absolut gesetzt werden. Das heißt, dass die Zellbezüge durch $-Dollarzeichen fixiert werden. Kopiert man anschließend diese Formeln, so bleiben die Zellbezüge erhalten.
In Formeln mit Teilen wie: Zeile(1:10), Spalte(1:1) und allen Matrixformeln funktioniert die Umwandlung leider nicht!
 
 
Der Code für ein allgemeines Modul. Siehe auch Programmierung -> Code aus Forum.
 
Public Sub Fomeln_absolut_setzen()
'Code für ein allgemeines Modul
On Error Resume Next
Dim rngZelle As Range
 
For Each rngZelle In Selection.SpecialCells(xlCellTypeFormulas)
  rngZelle.Formula = Application.ConvertFormula(rngZelle.Formula, xlA1, , xlAbsolute)
Next
If Err.Number <> 0 Then
  MsgBox "Es wurden keine Formeln im markierten Bereich gefunden.", 48
    Else
  MsgBox "Alle Formeln im markierten Bereich wurden absolut gesetzt.", 64
End If
End Sub
 
 
Um alle Dollarzeichen, innerhalb der Formeln, wieder zu entfernen.
 
Public Sub Dollarzeichen_loeschen()
'Code für ein allgemeines Modul
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas).Replace What:="$", Replacement:="", LookAt:=xlPart
If Err.Number <> 0 Then
  MsgBox "Es wurden keine Formeln im markierten Bereich gefunden.", 48
    Else
  MsgBox "In allen Formeln im markierten Bereich wurden die Dollarzeichen entfernt.", 64
End If
End Sub