Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in mehreren Sheets ändern

Forumthread: Formel in mehreren Sheets ändern

Formel in mehreren Sheets ändern
30.05.2023 18:06:30
Christoph

Hallo zusammen,

ich möchte über ein Makro eine Formel in einer Zelle jedes Sheets ändern. Über Makro aufzeichnen habe ich alle ein Makro erstellt. Jetzt bekomme ich immer eine Fehlermeldung im Debugger in der Zeile Active.Cell.

    Range("I76").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[1]C+R[23]C"
    Range("I77").Select


Hier weiß bestimmt jemand was ich falsch mache?

Grüße Christoph

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in mehreren Sheets ändern
30.05.2023 18:38:54
Fennek
Hallo,

der Code gilt nur für das aktuelle Sheet

Einfacher:


Range"I76").FormulaR1C1 = "=R[1]C+R[23]C"
mfg


AW: Formel in mehreren Sheets ändern
30.05.2023 18:46:20
GerdL
Hallo Christoph,

du hättest zumindest den Text der Fehlermeldung schreiben können.
Prinzipiell ist deine Formel nämlich in Ordnung.
Um evtl. Fehler wegen Texten ect. zu minimieren, würde ich diese nehmen.
Range("I76").FormulaR1C1 = "=SUM(R[1]C,R[23]C)"
Gruß Gerd


Anzeige
AW: Formel in mehreren Sheets ändern
30.05.2023 21:47:53
Christoph Neis
Sorry, Fehlermeldung lautet
Laufzeitfehler '1004'
Anwendungs- oder Objektdefinierter Fehler

LG Christoph


AW: Formel in mehreren Sheets ändern
30.05.2023 21:56:53
Christoph Neis
Hallo,
vielen Dank für die Rückmeldungen. Leider war ich nicht erfolgreich. Ich glaube ich habe zu wenig Infos zu meiner Frage mitgegeben. Ich möchte in einer Arbeitsmappe in allen Sheets die Formel der gleichen Zelle ändern. Nochmal der ganze Code:

Sub Summenkorrektur()
'
' Summenkorrektur Makro
'

'
    Sheets(Array("KW (53)", "KW (52)", "KW (51)", "KW (50)", "KW (49)", "KW (48)", _
        "KW (47)", "KW (46)", "KW (45)", "KW (44)", "KW (43)", "KW (42)", "KW (41)", "KW (40)" _
        , "KW (39)", "KW (38)", "KW (37)", "KW (36)", "KW (35)", "KW (34)", "KW (33)", _
        "KW (32)", "KW (31)", "KW (30)", "KW (29)")).Select
    Sheets("KW (44)").Activate
    Sheets(Array("KW (28)", "KW (27)", "KW (26)", "KW (25)", "KW (24)", "KW (23)", _
        "KW (22)", "KW (21)", "KW (20)", "KW (19)", "KW (18)", "KW (17)", "KW (16)", "KW (15)" _
        , "KW (14)", "KW (13)", "KW (12)", "KW (11)", "KW (10)", "KW (9)", "KW (8)", "KW (7)", _
        "KW (6)", "KW (5)", "KW (4)")).Select Replace:=False
    Sheets(Array("KW (3)", "KW (2)", "KW", "Summenblatt")).Select Replace:=False
    Range("I76").Select
    Application.CutCopyMode = False
    Range("I76").FormulaR1C1 = "=R[1]C+R[23]C"
    Range("I77").Select
    Sheets("KW (20)").Select
End Sub


Anzeige
AW: Formel in mehreren Sheets ändern
31.05.2023 09:04:23
GerdL
Hallo Christoph,

(nur) manchmal ist Select doch nützlich. :-)

Der 1004er kann vieles bedeuten. Also bitte keinen Blattschutz setzen u. keine Zellen verbinden, keine Blätter ausblenden.

Probier mal.
Sub Unit()

Sheets(1).Range("I76").FormulaR1C1 = "=SUM(R[1]C,R[23]C)"
Sheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets Sheets(1).Range("I76"), xlFillWithContents
Sheets(1).Select


End Sub
Gruß Gerd


Anzeige
AW: Formel in mehreren Sheets ändern
31.05.2023 10:55:41
Christoph
Hallo Gerd,
vielen Dank für Deine Antwort und den Code. Leider bleibt das Ergebnis gleich, gleicher Fehler 1004, die Zeile "Sheets(1) .... ist gelb unterlegt.


AW: Formel in mehreren Sheets ändern
31.05.2023 13:04:09
GerdL
Hallo Christoph,

bei mir hat es funktioniert.
Die Ursache liegt ergo in deinen Einstellungen bzw. den Einstellungen in deiner Datei, die hier im Forum nicht zu sehen ist.

Gruß Gerd


Anzeige
AW: Formel in mehreren Sheets ändern
31.05.2023 14:05:09
Christoph
Hallo Gerd,
vielen Dank für den Hinweis, dann mache ich mal auf die Suche, wo das Problem versteckt sein könnte.
Grüße Christoph

Forumthreads zu verwandten Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Pulldown in mehreren Spalten
Wolfgang

Hallo,
der untenstehende Code bewirkt bei Anwählen eines jeweilien Tabellenblattes, dass in I2:I6000 ein Pulldown erscheint. Wäre denkbar, dass der Code ausgeweitet wird um zwei weitere Pulldown in Spalte K2:K6000 mit "Ja" "Nein" und in Spalte M2:M6000 mit "Date". Ich habe schon zig verschi...
15.11.2008 18:33:43
Thread-ID: 1024798
3 Beiträge
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Anzeige
Formeln in mehrere Arbeistblätter
leo

Hallo, habe eine Anforderung zu lösen. In meiner Mappe kann ich mit einem Button eine neue Zeile einfügen welche auch die Formeln übernimmt. Jetzt die neue Anforderung, kann dies auch über mehrere Arbeitsblätter passieren?
Mappe liegt bei!!
DANKE!! gurß leo
https://www.herber.de/bbs...
09.03.2009 15:43:20
Thread-ID: 1058199
3 Beiträge
Anzeige
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Anzeige
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Anzeige
Zählenwenn in mehreren Ranges Highspeed
Jan

Hallo,
Ich muss in mehreren Bereichen überprüfen, ob eine der Zellen in den Bereichen einen Wert enthält. Da die Excelfunktion "Zählenwenn" nur einen Bereich unterstützt, habe ich mir folgende Funktion in VBA geschrieben.
Function ZÄHLE(Wert As String, ParamArray Rng() As Variant) As I...
03.10.2009 14:08:20
Thread-ID: 1106968
15 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Formeln in mehreren Sheets ändern
Sven

Hallo,
ich habe eine Tabelle mit meheren Seiten
Persdaten
Stammdaten
23
24
25
usw.
jetzt habe ich gemerkt, dass ich in allen tabellen Formelfehler habe (außer in Persdaten)
jetzt möchte ich per Makro gern in allen Tabellenblättern diese Fehler beheben.
wi...
16.11.2009 02:44:50
Thread-ID: 1117475
2 Beiträge
summieren und multiplizieren über mehrere Spalten | Herbers Excel-Forum
Murat
Hallo, komme net weiter....
wie schreibe ich folgende Formel
=summe(A1:H1)*Z1
=summe(A2:H2)*Z2
=summe(A3:H3)*Z3
...
...
...
=summe(A2379:H2379)*Z2379
in eine Zelle?
Danke im voraus
Gruß
murat
24.01.2010 15:15:44
Thread-ID: 1132459
3 Beiträge
Wildcardsuche in UF in mehreren Spalten
Frank

Hallo zusammen
Auf anraten von Peter hier ein neuer Thread in Bezug auf "Wildcards"
Ich las den Thread "zwei Suchkriterien über TXT-Box erfüllen"
https://www.herber.de/bbs/user/68128.xls
und wollte eine Frage loswerden,
Wie kann in einem Uf, in einer Listbox, nicht nur per...
23.02.2010 17:55:19
Thread-ID: 1140653
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige