Anzeige
Archiv - Navigation
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Relative Bezüge über Makro umwandeln

Relative Bezüge über Makro umwandeln
18.11.2005 15:23:27
Mike
Hallo Leo,
vielen Dank für deine Mühe, damit mir jetzt auch endgültig geholfen ist erkläre ich es dir nochmal
1. Ich möchte in komplexen Formeln die in der Exceltabeller im Bereich O 12 bis AB 31 stehen relative Zellbezüge in absoluted von Excel umwandeln lassen Damit beim Kopieren der Formeln in ein anderes Blatt keine Verschiebungen auftreten.
2. Ich versuche die ganze Zeit das Makro,das du mir aus dem Archiv gepostet hast wie folgt zu verändern: Im Beispiel ist Range(A1) genannt bei mir müsste aber o12 bis Ab 31 stehen ich habe es mit Range(O12:AB31)- Fehlermeldung beim Kopilieren.
Ich brauche also den umgeschriebenen Code, mit dem Beispiel alleine komme ich nicht weiter.
P.S.:
Ich muss jetzt weg, kann erst wieder morgen antworten.
Gruß
Mikel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Relative Bezüge über Makro umwandeln
20.11.2005 09:48:09
Nepumuk
Hi,
versuch es mal so:
Public Sub AbsoluteBezuege()
    Dim objCell As Range
    For Each objCell In Range("O12:AB31")
        If objCell.HasFormula Then
            If objCell.HasArray Then
                If Application.ReferenceStyle = xlR1C1 Then
                    objCell.FormulaArray = Application.ConvertFormula _
                        (objCell.FormulaArray, xlR1C1, , xlAbsolute)
                Else
                    objCell.FormulaArray = Application.ConvertFormula _
                        (objCell.FormulaArray, xlA1, , xlAbsolute)
                End If
            Else
                If Application.ReferenceStyle = xlR1C1 Then
                    objCell.Formula = Application.ConvertFormula _
                        (objCell.Formula, xlR1C1, , xlAbsolute)
                Else
                    objCell.Formula = Application.ConvertFormula _
                        (objCell.Formula, xlA1, , xlAbsolute)
                End If
            End If
        End If
    Next
End Sub

Gruß
Nepumuk

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige