Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bereich: Zellen absolut setzen

Bereich: Zellen absolut setzen
09.09.2005 17:09:27
Andreas
Hallo zusammen,
ich habe einen größeren Bereich,den ich aus einem anderen Arbeitsblatt verformelt habe. Nun sollen die Formeln absolut gesetzt werden.
Kenne nur die Möglichkeit F4 für einzelne Zellen.
Hat mir da jemand ne schnelle Lösung? Evtl. ohne Makro?
Danke im Voraus.
Gruß Andreas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich: Zellen absolut setzen
09.09.2005 17:19:33
Nepumuk
Hallo Andreas,
ohne Makro nur zu Fuß.
Sub AbsoluteBezuege()
    Dim myRange As Range
    For Each myRange In ActiveSheet.UsedRange
        If myRange.HasFormula Then
            If myRange.HasArray Then
                If Application.ReferenceStyle = xlR1C1 Then
                    myRange.FormulaArray = Application.ConvertFormula _
                        (myRange.Formula, xlR1C1, , xlAbsolute)
                Else
                    myRange.FormulaArray = Application.ConvertFormula _
                        (myRange.Formula, xlA1, , xlAbsolute)
                End If
            Else
                If Application.ReferenceStyle = xlR1C1 Then
                    myRange.Formula = Application.ConvertFormula _
                        (myRange.Formula, xlR1C1, , xlAbsolute)
                Else
                    myRange.Formula = Application.ConvertFormula _
                        (myRange.Formula, xlA1, , xlAbsolute)
                End If
            End If
        End If
    Next
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
Danke Nepumuk, werd´s testen. o.T.
09.09.2005 17:23:36
Andreas
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige