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 "