Formel ändern

Bild

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

Bild


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!


Bild


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


Bild


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!


Bild


Betrifft: AW: Formel ändern von: fritz
Geschrieben am: 24.02.2005 16:26:27

Hallo Sepp,

funktioniert!!!

Danke!

Fritz


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel ändern "