'Formeln in Bereich zuscheiden

Also es sind 96 verschiedene Formeln.
Nein, sind es nicht. Wenn es 12 Bereiche sind, sind es 12 Formeln, also 12 Regeln. Excel kann das intern auf einen vorher definierten Bereich selber anwenden.

Hallo Sascha,

wie wertest du deine Dateien aus? Alle 4 Dateien mit den gleichen Formeln? Es ändern sich also nur die Bezüge?

Und der Bezug auf die Datei steht immer in A1?

Vorschlag:

Du gibst deine Formeln ein mit "Bereich" als Platzhalter. Danach ersetzt du in allen Formeln Bereich durch den Bezug. Danach kannst du dann den Bezug durch andere Bezüge ersetzen, wenn benötigt.

Du gibst also z.B. ein

=Summe(Wenn(Bereich=C6;1;0)) und schließt mit STRG+Shift+Enter ab. Wenn alle Formeln eingetragen sind, lässt du das Makro über den Bereich mit den Formeln laufen. Ebenso, wenn du den Bezug in A1 wechselst.

Im Moment geht das Makro noch über den kompletten (UsedRange) Bereich. Vereinfache dies, indem du dort den korrekten Bereich mit den Formeln eingibst:

Sub Test()

Dim rngC As Range

Dim Start As Long, Ende As Long

Dim myStr As StringFor Each rngC In ActiveSheet.UsedRange

    If rngC.HasFormula Then

        If InStr(rngC.Formula, "Bereich") Then

            rngC.FormulaArray = Replace(rngC.Formula, "Bereich", "'" & Range("A1").Value)

        Else

            Start = InStr(rngC.Formula, "'") + 1

            Ende = InStrRev(rngC.Formula, "=")

            myStr = Mid(rngC.Formula, Start, Ende - Start)

            rngC.FormulaArray = Replace(rngC.Formula, myStr, Range("A1").Value)

        End If

    End If

Next

End Sub

Claus

Hallo,

wie lautet die Hyperlink-Adresse und in welcher Zelle befindet sie sich? Wo sollen die Formeln hin und wie sollen diese Formeln lauten?

Wenn du die Mappen nicht öffnen willst, musst du mit VBA die Formeln in eine Zelle oder einen Bereich schreiben.

Claus

Hallo Daniel,

der Fehler kommt von den Formeln. Kopiere den Bereich mit den Formeln und füge ihn als Werte wieder ein. Kontrolliere aber vorher die Formeln. In der unteren Tabelle stimmen die Bezüge nicht. Dann funktioniert auch das Sortieren richtig.

Mit freundlichen Grüßen

Claus

Hallo Anni,

was möchtest du erreichen? Willst du die Formeln in der neuen Spalte sehen?

Wenn die Bezüge in deinen Formeln absolut geschrieben sind, dann beziehen sich die neue eingefügten Formeln auf die gleichen Bereiche und erzeugen daher auch das gleiche Ergebnis.

Claus