Formel ändern

• Formel ändern von Fritz vom 23.02.2005 17:39:43
• AW: Formel ändern - von Josef Ehrensberger am 23.02.2005 17:48:47
  • AW: Formel ändern - von Fritz am 23.02.2005 22:52:44
    • AW: Formel ändern - von Josef Ehrensberger am 23.02.2005 23:46:17
      • AW: Formel ändern - von fritz am 24.02.2005 16:26:27

Betrifft: Formel ändern
von: Fritz

Geschrieben am: 23.02.2005 17:39:43
Hallo Experten,
ich muss in einer Mappe mit 12 MonatsTabellen in der Zelle A46 die Formel
für den Übertrag ändern. D.h. die Formel enthält den externen Zellbezug
zur Vorgänger-Tabelle:
Beispiel: in der Märztabelle steht: =februar!A46
in der Oktobertabelle steht: =september!A46
usw.
Der korrekte Bezug ist aber nicht A46 sondern L46 und muss entsprechend
geändert werden.
Ein Tipp wäre super!
Fritz

Betrifft: AW: Formel ändern
von: Josef Ehrensberger
Geschrieben am: 23.02.2005 17:48:47
Hallo Fritz!
Wenn das ein einmaliger Vorgang ist, dann ist es wohl am einfachsten,
den Bezug mit der Hand von A auf L zu ändern.

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Betrifft: AW: Formel ändern
von: Fritz

Geschrieben am: 23.02.2005 22:52:44
Hallo Sepp,
leider ist das Ganze kein einmaliger Vorgang sondern muss
für 29 Mappen mit jeweils 12 Tabellen gemacht werden.
Ich habe es mit Gruppierung versucht und suchen/ersetzen aber
bisher ohne Erfolg.
Ich vermute,dass es am externen Zellbezug liegt, weil dadurch ja jede Zelle
eine andere Formel enthält.
Aber vielleicht gibt es keine Lösung und ich muss es einzeln ändern.
Danke für Deine Unterstützung!
Gruß Fritz

Betrifft: AW: Formel ändern
von: Josef Ehrensberger

Geschrieben am: 23.02.2005 23:46:17
Hallo Fritz!
Probier mal diesen Code!
Er sucht in der aktiven Mappe!

Sub fritz()
Dim wks As Worksheet
Dim rng As Range
On Error Resume Next
For Each wks In ActiveWorkbook.Worksheets
For Each rng In wks.Cells.SpecialCells(xlCellTypeFormulas, 23)
If InStr(1, rng.Formula, "[") > 0 Then
rng.Formula = Replace(rng.Formula, "!A46", "!L46")
End If
Next
Next
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Betrifft: AW: Formel ändern
von: fritz
Geschrieben am: 24.02.2005 16:26:27
Hallo Sepp,
funktioniert!!!
Danke!
Fritz

Excel-Beispiele zum Thema "Formel ändern "
Anzeigen von Werten und Formeln	Zeile einfügen und Formeln und Werte übernehmen
Formeln mit Zelladressen speichern	Zeilenumbruch in Formel erzwingen
Aktueller Arbeitsblattname in Formel	Variable in Formel einbauen
Ein Zeichen in einer Formel suchen	Variable in Excel-Formel einbauen.
Summenformel unter Zahlenreihe eintragen	Arbeitszeittabelle und SVERWEIS-Formel