Hallo Lothar,

schön wäre es, wenn Du ein Testobjekt, was der Tabellenstruktur der Originaldatei entspricht hochladen könntest. Die Daten kannst Du ja verfälschen.
Den Upload kannst Du über folgende Adresse tätigen.

http://www.netupload.de/

Gruß
Rainer

@Rainer,

ich habe mein Arbeitsblatt mal vereinfacht abgebildet. Bekomme jetzt allerdings einen Syntaxfehler im Makro angezeigt und finde den Fehler nicht - im Moment muß ich passen!
Das Summenprodukt soll den Wert 1 oder bei Datumsüberschneidungen den Wert 2 zurückgeben. Der Zeitraum zwischen datum1 und datum2 in den Tabellen 1 und 2 soll in Tabelle 3 durch "Bedingte Formatierung" als Farbbalken dargestellt werden.
Als Formel im Tabellenblatt funktioniert das wie gewünscht!

Gruss Lothar


hier ist das Arbeitsblatt

Hallo Lothar,

habe das Makro etwas vereinfacht.
Den derzeit verwendeten Bereich Range("C3:S10") kannst Du beliebig anpassen.

http://www.netupload.de/detail.php?img=de76a1049fc88405186ab81021e8...

Gruß
Rainer

@Rainer,
danke für die Hilfe! Ich habe allerdings wieder dasselbe Problem, welches mich veranlasst hat, die Summenprodukt-Formel in ein Makro zu packen und nicht als Tabellenfunktion zu nutzen. Das Makro macht ja nichts anders als
die Formel in die jeweiligen Zellen der Tabelle zu schreiben. Das hatte ich (mangels VBA Erfahrung) nicht erwartet!
Die Tabelle 3 meines Beispiels besteht tatsächlilch aus 100 Datumsspalten und 400 Zeilen mit lfd. Nr. und ist verknüpft mit 14 Tabellenblättern. Wenn ich in irgendeiner dieser Tabellen Daten ändere oder neu eingebe, berechnet Excel bei jeder Eingabe das Summenprodukt für alle Zellen der Tabelle 3 immer wieder neu! Das dauert dann jeweils ca. 1,5 Minuten. Ein effektives Arbeiten ist so nicht möglich!
Was ich erreichen möchte ist, dass das Ergebnis der vorhergehenden Berechnung in Tabelle 3 immer sichtbar ist und eine Neuberechnung nur durchgeführt wird, wenn der Aktualisierungs-Button gedrückt wird!
>EXTRAS /OPTIONEN / BERECHNUNG / manuell< kann ich nicht nutzen, da noch anderer Bezüge zwischen den Tabellenblättern bestehen die auf jeden Fall automatisch aktualisiert werden müssen.

Sorry, ich hatte mein Problem nicht detailliert genug beschrieben!

Gruss Lothar

Hallo Lothar,

ich war schon versucht , Dir vorzuschlagen, anstatt der SUMMENPRODUKT-Formel , die "WorksheetFunction.SumProduct()" zu verwenden.

Damit würde nicht die Formel in die betreffenden Zellen geschrieben, sondern nur die Ergebniswerte, womit das ständige Neuberechnen wegfällt.

Aber da Du 14 Tabellen einbinden willst, würde das ja 42 definierte Namen bedeuten.
Diese zu erstellen, wäre ja nicht das Problem, aber wohl diese in der SumProduct-Funktion unter zu bringen.

Ich kenne zwar die zulässige Länge einer Formel in VBA nicht, aber ich vermute stark, dass es zu einer Überschreitung kommt.

Da es Schöneres gibt, als das zu testen, zumal ich kein VBA-Fachmann bin, kann ich Dir diesbezüglich leider nicht weiter helfen.

Gruß
Rainer

Hi Lothar,

du darfs keinen Zeilenumbruch innerhalb einer mathematischen Operation machen. Wenn du die Zeilenumbrüche wegnimmst, erscheint kein Fehler.

Bis später,
Karin

Hallo Rainer,
ich weiß zwar nicht, ob dieser Thread hier noch verfolgt wird, da er schon etwas älter ist. Ich poste trotzdem zunächst einmal hier, in der Hoffnung, dass Du mir nochmals helfen kannst.

Mein Performance-Problem habe ich gelöst, indem ich das Excel-File mittels Makro unter anderem Namen speichere, alle Tabellenblätter, bis auf das relevante, ausblende, die Summenproduktformel einmal ausführe und ich habe das gewünschte Ergebnis! Mit dem Ursprungstabellenblatt kann ich normal weiterarbeiten!

Nun habe ich das Problem, dass ich den Farbbalken evtl. in einer anderen Farbe darstellen muß, nämlich immer dann, wenn in der Spalte "Merkmal" ein Wert steht (E oder A), soll der Balken nicht in blau sondern in grün dargestellt werden. Die Summenproduktformel müßte also in diesen Fällen einen anderen Wert als 1 liefern, dann könnte ich die Farbe über die "Bedingte Formatierung" steuern. Ich bekomm's alleine nicht hin, wäre nett, wenn Du mir nochmals helfen würdest.

Eine Beispieldatei habe ich hochgeladen.

Gruss Lothar

hallo,

meinst du so

http://www.netupload.de/detail.php?img=8086efa16e69adedec903ec6bb3b...

Gruß

Helmut

Hallo Helmut,
nein, so meinte ich das nicht!
Die mit der grünen Umrandung gekennzeichneten Zellen, die jetzt blau sind, sollen grün dargestellt werden, weil in der Spalte "Merkmal" E oder A steht! Steht unter "Merkmal " nichts, dann sollen sie blau dargestellt werden!

Gruss Lothar

Hallo,

dann so

http://www.netupload.de/detail.php?img=5bbc53a7fcf2d9321886fed2bf1f...

Notfalls bei merkmale die BEdingungen für die Formatierung löschen

Gruß

Helmut

Nein, so auch nicht!
Das ganze Problem ist etwas komplizierter!
Wenn Du Dir den ganzen Thread durchliest, weist Du worum es geht!
Die Lösung liegt wohl nur in einer Änderung des VBA-Makros, welches die Summenprodukt-Formel ausführt.

Gruss Lothar

Hallo,

auf ein neues. Wenn du dein Formel so ergänzt

=SUMMENPRODUKT(((t1nummer=$A3)*(t1datum1<=C$1)*(t1datum2>=C$1))+((t2nummer=$A3)*(t2datum1<=C$1)*(t2datum2>=C$1)))*WENN(ODER($T3="E";$T3="A");10;1)

Dann kommt anstelle von 1 oder 2, 10 oder 20 und jetzt bei der Bedingten Formatierung die dritte Bedingung auf => 10 setzen

Gruß

Helmut

Hallo Helmut,
ich habe versucht Deinen Lösungsvorschlag [/url=http://www.netupload.de/detail.php?img=cca77fc9a9400cafe88863ce68d7b12e.xls]
hier[/url] umzusetzen.

Ich bekomme allerdings bei der Ausführung des Makros
"Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler" angezeigt!

Ohne Hilfe komme ich hier nicht weiter, irgendeine Idee?

Gruss Lothar

Hallo,

habs mal eingebaut

http://www.netupload.de/detail.php?img=7b7402eddacb31a35ea2505a2243...

Gruß

Helmut

Hast Du evtl. nicht die richtige Datei hochgeladen?
Wenn ja, wo hat sich was geändert?

Gruss Lothar

Hallo,

seh mal in den grünen Feldern mit der 10 nach, geändert in allen Feldern und die bedingte Formatierung

Setze an anderer Stelle mal das E.

Ich habe an alle Zellen *WENN(ODER($T3="E";$T3="A");10;1)

Gruß

Helmut

Hallo Lothar,

habe die Bedingte Formatierung geändert.
Teste mal selbst.

http://www.netupload.de/detail.php?img=0f5c9260bb750a720ebccc84e9d9...

Gruß
Rainer

@Rainer

n'abend Rainer, schön das Du hier mitliest!

@Helmut

Ok, hab's gesehen, da ist mir bei der Erstbeschreibung meines Problems ein Fehler unterlaufen, T'schuldigung!

Schaut Euch doch bitte nochmal

diese Datei an.

Das Merkmal, welches abgefragt werden soll, ist in den Tabellen 1 und 2 und nicht in Tabelle3 definiert.

Das VBA-Makro "berechnen" schreibt die Funktion >Summenprodukt< in den Zellbereich C3:S10, diese Funktion ermittelt den Wert 1 oder 2 je Zelle (Darstellung in blau oder rot durch "Bedingte Formatierung"). Das funktioniert auch. Was jetzt neu hinzugekommen ist, ist das Merkmal welches maßgebend dafür ist, ob die Zelle in grün dargestellt werden soll. Das Summenprodukt müßte also um eine Bedingung erweitert werden. Das habe ich versucht, erhalte aber den benannten Fehler.

Die Werte A und E in den Zellen T2 und U2 der Tabelle3 habe ich angegeben, weil die Abfrage auf ="A" bzw. = "E" in der Summenprodukt-Funktion einen Syntaxfehler erzeugt hat. Ich vermute das hängt mit der R1C1-Darstellung zusammen.

Gruss Lothar

Hallo Lothar,

so wie Du das machen wolltest geht das nicht, das widerspricht der Syntax von SUMMENPRODUKT.

Um die Formel nicht weiter zu komplizieren habe ich eine Hilfspalte eingefügt und deren Daten für die Bedingte Formatierung verwendet.

Die Formeln der Hilfsspalte werden ebenfalls durch das Makro aktualisiert.

http://www.netupload.de/detail.php?img=af5dfbdc66f7cfb402de6b92e4ac...

Gruß
Rainer

Hallo,

durch @rainberg's Lösung, jetz ohne hilfspalte

http://www.netupload.de/detail.php?img=9cd546ff049fa7b9389b02ff7b43...


Gruß

Helmut