Herbers Excel-Forum - das Archiv
Formel ändern
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