Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel ändern

Formel ändern
23.02.2005 17:39:43
Fritz
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel ändern
23.02.2005 17:48:47
Josef
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!
AW: Formel ändern
23.02.2005 22:52:44
Fritz
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
Anzeige
AW: Formel ändern
23.02.2005 23:46:17
Josef
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!
AW: Formel ändern
24.02.2005 16:26:27
fritz
Hallo Sepp,
funktioniert!!!
Danke!
Fritz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige