Makro für das Kopieren diverser Zellen als Formel in einer anderen Zelle

Rainer Magin · 26. Juli 2018

Voraussetzung:

Formeln werden in einer Spalte auf diverse Zellen (1 Formel bis zu 50 Zellen) verteilt.

Die Zellen werden mit Makro aktualisiert.

Die aktualisierten Zellen sollen in einer Zelle als Formel via Makro zusammengefasst werden und berechnet werden.

Diese "Einzelzelle" mit Formel dient zur weiteren Verarbeitung in diversen Arbeitsblättern.

Die Integrierung der Formeln manuell ist zu aufwendig, da es dabei um weit über 600 Einzelformeln geht.

Auf welchem Weg kann das Makro erstellt werden, bzw. wie sieht der kopierbare Code (für weitere Formeln) im Makro aus?

Claus Busch

Hallo Rainer,

die Abfrage wird nicht benötigt, weil du nur die Zellen zählst in denen eine 3 steht.

Es reicht also aus:

=SUMME(Spieltage!$J$4=3;Spieltage!$J$32=3;Spieltage!$J$53=3;Spieltage!$J$73=3;Spieltage!$J$113=3;Spieltage!$J$133=3;Spieltage!$J$163=3;Spieltage!$J$183=3;Spieltage!$J$227=3;Spieltage!$J$253=3;Spieltage!$J$278=3;Spieltage!$J$310=3;Spieltage!$J$319=3;Spieltage!$J$334=3;Spieltage!$J$368=3;Spieltage!$J$389=3;Spieltage!$J$418=3)+SUMME(Spieltage!$L$18=3;Spieltage!$L$34=3;Spieltage!$L$68=3;Spieltage!$L$90=3;Spieltage!$L$109=3;Spieltage!$L$124=3;Spieltage!$L$158=3;Spieltage!$L$179=3;

Spieltage!$L$208=3;Spieltage!$L$213=3;Spieltage!$L$241=3;Spieltage!$L$263=3;Spieltage!$L$283=3;Spieltage!$L$323=3;Spieltage!$L$353=3;Spieltage!$L$373=3;Spieltage!$L$403=3)

Die Zeilen haben nicht immer den gleichen Abstand, sonst könnte man die Formel noch vereinfachen.

Wenn ich einen solch komplizierten Tabellenaufbau habe, ziehe ich eine UDF einer Formel vor.

Probiere mal folgenden Code und rufe die Funktion im Blatt auf mit =AnzST(). Wenn sich Zeilen oder der Suchwert ändern, ist das schnell im Code gemacht. Du könntest den Suchwert auch in eine Zelle schreiben und dich im Code auf die Zelle beziehen:

Function AnzST() As Integer

Dim varJ As Variant, varL As Variant

Dim chkVal As Integer, i As IntegerchkVal = 3

varJ = Array(4, 32, 53, 73, 113, 133, 163, 183, 227, 253, 278, 310, 319, 334, 368, 389, 418)

varL = Array(18, 34, 68, 90, 109, 124, 158, 179, 208, 213, 241, 263, 283, 323, 353, 373, 401)

With Sheets("Spieltage")

   For i = LBound(varJ) To UBound(varJ)

      If .Cells(varJ(i), "J") = chkVal Then AnzST = AnzST + 1

   Next

   For i = LBound(varL) To UBound(varL)

      If .Cells(varL(i), "L") = chkVal Then AnzST = AnzST + 1

   Next

End With

End Function

Claus

Claus Busch

Hallo Rainer,

schau mal diesen Thread durch. Darin ist keine Antwort von dir außer deiner bescheidenen Frage ;-)

Claus

Claus Busch

Hallo Rainer,

ich verstehe deine Frage nicht richtig.

In welcher Spalte sind die Formeln? Sind noch andere Werte in dieser Spalte und wenn ja, welche (Zahlen, Text usw.)? Wie sollen die Zellen mit Formel zusammengefasst werden? Sollen sie summiert werden?

Claus

Rainer Magin

Hallo Claus,

nachstehend die gesamte Formel wie sie in den einzelnen Zellen steht und in einer Zelle als Formel platziert werden sollen.

Ungefähr 70 - 80 der Forel passt in eine Zeile.

Rainer

[table][tr][td]=WENN(ODER([/td][/tr][tr][td]Spieltage!$J$4=3;[/td][/tr][tr][td]Spieltage!$J$32=3;[/td][/tr][tr][td]Spieltage!$J$53=3;[/td][/tr][tr][td]Spieltage!$J$73=3;[/td][/tr][tr][td]Spieltage!$J$113=3;[/td][/tr][tr][td]Spieltage!$J$133=3;[/td][/tr][tr][td]Spieltage!$J$163=3;[/td][/tr][tr][td]Spieltage!$J$183=3;[/td][/tr][tr][td]Spieltage!$J$227=3;[/td][/tr][tr][td]Spieltage!$J$253=3;[/td][/tr][tr][td]Spieltage!$J$278=3;[/td][/tr][tr][td]Spieltage!$J$310=3;[/td][/tr][tr][td]Spieltage!$J$319=3;[/td][/tr][tr][td]Spieltage!$J$334=3;[/td][/tr][tr][td]Spieltage!$J$368=3;[/td][/tr][tr][td]Spieltage!$J$389=3;[/td][/tr][tr][td]Spieltage!$J$418=3);[/td][/tr][tr][td]Summe([/td][/tr][tr][td]Spieltage!$J$4=3;[/td][/tr][tr][td]Spieltage!$J$32=3;[/td][/tr][tr][td]Spieltage!$J$53=3;[/td][/tr][tr][td]Spieltage!$J$73=3;[/td][/tr][tr][td]Spieltage!$J$113=3;[/td][/tr][tr][td]Spieltage!$J$133=3;[/td][/tr][tr][td]Spieltage!$J$163=3;[/td][/tr][tr][td]Spieltage!$J$183=3;[/td][/tr][tr][td]Spieltage!$J$227=3;[/td][/tr][tr][td]Spieltage!$J$253=3;[/td][/tr][tr][td]Spieltage!$J$278=3;[/td][/tr][tr][td]Spieltage!$J$310=3;[/td][/tr][tr][td]Spieltage!$J$319=3;[/td][/tr][tr][td]Spieltage!$J$334=3;[/td][/tr][tr][td]Spieltage!$J$368=3;[/td][/tr][tr][td]Spieltage!$J$389=3;[/td][/tr][tr][td]Spieltage!$J$418=3);0)[/td][/tr][tr][td]+Wenn(Oder([/td][/tr][tr][td]Spieltage!$L$18=3;[/td][/tr][tr][td]Spieltage!$L$34=3;[/td][/tr][tr][td]Spieltage!$L$68=3;[/td][/tr][tr][td]Spieltage!$L$90=3;[/td][/tr][tr][td]Spieltage!$L$109=3;[/td][/tr][tr][td]Spieltage!$L$124=3;[/td][/tr][tr][td]Spieltage!$L$158=3;[/td][/tr][tr][td]Spieltage!$L$179=3;[/td][/tr][tr][td]Spieltage!$L$208=3;[/td][/tr][tr][td]Spieltage!$L$213=3;[/td][/tr][tr][td]Spieltage!$L$241=3;[/td][/tr][tr][td]Spieltage!$L$263=3;[/td][/tr][tr][td]Spieltage!$L$283=3;[/td][/tr][tr][td]Spieltage!$L$323=3;[/td][/tr][tr][td]Spieltage!$L$353=3;[/td][/tr][tr][td]Spieltage!$L$373=3;[/td][/tr][tr][td]Spieltage!$L$403=3);[/td][/tr][tr][td]Summe([/td][/tr][tr][td]Spieltage!$L$18=3;[/td][/tr][tr][td]Spieltage!$L$34=3;[/td][/tr][tr][td]Spieltage!$L$68=3;[/td][/tr][tr][td]Spieltage!$L$90=3;[/td][/tr][tr][td]Spieltage!$L$109=3;[/td][/tr][tr][td]Spieltage!$L$124=3;[/td][/tr][tr][td]Spieltage!$L$158=3;[/td][/tr][tr][td]Spieltage!$L$179=3;[/td][/tr][tr][td]Spieltage!$L$208=3;[/td][/tr][tr][td]Spieltage!$L$213=3;[/td][/tr][tr][td]Spieltage!$L$241=3;[/td][/tr][tr][td]Spieltage!$L$263=3;[/td][/tr][tr][td]Spieltage!$L$283=3;[/td][/tr][tr][td]Spieltage!$L$323=3;[/td][/tr][tr][td]Spieltage!$L$353=3;[/td][/tr][tr][td]Spieltage!$L$373=3;[/td][/tr][tr][td]Spieltage!$L$403=3);0)[/td][/tr][/table]

Andreas Killer

Das hört sich nach einem sehr verworrenem Konstrukt an. Was auch immer in H10:H70 steht, Formeln schreiben geht so:

Sub Test()

Range("H5").FormulaLocal = "=WENN(1=2;""Kaputt"";""Juhu"")"

End Sub

Es sei denn Dein Excel ist nicht deutsch, dann geht es mit der Formula Eigenschaft und einer englischen Formel.

Andreas.

Hi,

willkommen im Windows Forum!

Makro für das Kopieren diverser Zellen als Formel in einer anderen Zelle - Similar Threads - Makro Kopieren diverser	Forum	Datum
Select einen Zelle in Formel Select einen Zelle in Formel: Hallo CommunityWie kann ich die Zelle die selekotieren die genau verdeck wird durch die Formelname?Das recht mich immer wahnsinnig auf in der Formelbereich sehe ich schon was ich getypt habe...	Microsoft Office	20. August 2021
Formel in Zellen schreiben Formel in Zellen schreiben: Hallo - habe schon mal was zu diesem Thema wissen wollen. Nun ist Zeit vergangen und bei einem anderen Projekt will es nicht klappen. Möchte eine Formel in einen Zellenbereich schreiben Dim...	Microsoft Office	20. März 2021
Zellen kopieren Zellen kopieren: Wie kann ich die Zellen kopieren ohne das jedes mal die bedingte Formatierung an die neuen Zellen angepasst werden muss? [IMG]	Microsoft Office	21. März 2020
Makro - Kopieren Wert einer Zelle von Tabelle zu anderen Spalte in anderer Tabelle Makro - Kopieren Wert einer Zelle von Tabelle zu anderen Spalte in anderer Tabelle: Guten Tag Community Ich habe 2 Tabellen "Monat" und Verwaltung - Spalten A - J sind erstmal in beiden Tabellen identisch. Jetzt möchte ich bei Änderungen in Tabelle Verwaltung Bereich L8:M207...	Microsoft Office	24. März 2019
Makro zum Verschieben von Zellen Makro zum Verschieben von Zellen: Hallo Zusammen, ich habe die folgende Tabelle und möchte gerne die Datensätze, die in Spalte A leer sind so verschieben, dass die Inhalte in Spalte D anfangen. Also müsste der Inhalt aus Spalte...	Microsoft Office	18. September 2018
Kopiere eine Zelle mit Formel nach Update nicht möglich Kopiere eine Zelle mit Formel nach Update nicht möglich: Hallo Leute, ich benutze excel 365 auf dem iPhone und kann seid dem Update keine Zelle mit Formel kopieren. Er übernimmt immer nur den Inhalt (Zahlenwert). Vielleicht kann mir ja einer helfen.	Microsoft Office	14. April 2017
VBA Makro - Formel in Zelle schreiben VBA Makro - Formel in Zelle schreiben: Zum Abschluss meines Sub Fahrzeuge () möchte ich die Formel {=MITTELWERT(WENN(P2:P156="";R2:R156))} der Zelle R1 im Tabellenblatt "Gebraucht" zuweisen. Habe schon so einiges probiert - aber...	Microsoft Office	3. Februar 2017

Makro für das Kopieren diverser Zellen als Formel in einer anderen Zelle