Office: maximalwert Spalte mit Bedingungen ermitteln

Hallo,

ich möchte den maxwert einer Spalte ermitteln abhängig vom Inhalt 2 anderer Spalten.

Maxwert von Spalte P wenn in Spalte A "xx" ODER "yy" steht UND in Spalte B "ZZ" steht.

Hab das versucht mit normalen Formeln hinzubekommen und sie dann mit makro aufzuzeichnen. Aber die Formel bekomme ich nicht hin.

:)

 

Hola,

Code:

die Formel mit Strg-Shift-Enter abschließen!

Gruß,
steve1da

 

Hi,

Funktioniert perfekt*biggrin.gif* . Danke Dir.

Aber, wie lautet die Formel ohne activeCell. Also ohne FormulaR1C1?

 

hallo, oder mit einfachem abschluss (nur Enter)..:

=MAX(INDEX(P1:P5*(A1:A5={"xx"."yy"})*(B1:B5="zz");))

 

In VBA etwas angepasst heist die Formel dann:

Code:

Jetzte ist das das Formular1c1 format.

Die Formel sollte im Endeffekt aber nicht in einer Zelle stehen sondern das ERgebnis sollte als Variabel im VBA ermittelt werden.

Wie kann ich hierfür die Formel anpassen?

 

Hi,

also nach zig Stunden Recherche konnte ich keine Lösung finden mit der ich in VBA direkt ohne .Formula oder .FormulaR1C1 arbeiten kann.

Somit bleibt mir nur die Lösung über eine "normale" Formel in einer Zelle zu gehen.

Meine Formel bezieht sich allerdings auf einen variable Range die ich per VBA ermittle.
Wie kann das in der

Formel aussehen?

 

Hallo,

auch wenn ich für diese Lösung nicht auf Google angewiesen bin, habe ich's mal versucht - und siehe da: Der erste Treffer enthielt bereits die Lösung.
Suchbegriffe:
Code:

Also: Rechenergebnis in eine Variable ablegen mit Evaluate()
Code:

Beachten: Formel in amerikanisches Format überführen!

------------------------------------------
Grober Unfug Anfang

Der andere Weg funktioniert zwar, ist aber m. E. nur als Spielerei zu gebrauchen:
Code:

Aufruf aus Formel:
Code:

Grober Unfug Ende
------------------------------------------


Warum durchmischt Du auf so unsägliche Weise Formeln und VBA?
Ich gehe entweder den Weg MIT Formeln und dafür OHNE VBA - oder umgekehrt. Eine Mischung halte ich immer für die zweitbeste Lösung.

Grüße
EarlFred

 

Hi EarlFred

Na weil ichs nicht besser weiß.*frown.gif*

Die Range (letzte Zeile) wird mit VBA ermittelt.
Und dazu benötige ich halt auch noch das eine oder andere Suchergebnis als Variable weil ich damit weiterarbeiten muss.

Wenns Du eine Lösung hast wie ich alles in VBA mache. Gerne!
Wäre mir auch wesentlich lieber.

 

Hallo,

EBEN war was noch die gesamte variable Range, JETZT ist es auf einmal nur noch die letzte Zeile! Was denn nun?

Meine letzten Post hast Du gelesen?

Grüße
EarlFred

 

Hi,

es ist die letzte Zeile einer Range.

Hab jetzt mal mit Evaluate rumgespielt und es hin bekommen.
Danke Dir! *top

Aber glaub mir, zig Stunden auf deutschen und englischen Seiten unterwegs.
Man sollte hat schon wissen was man genau sucht. Daran lags dann wahrscheinlich.*rolleyes.gif*

 

Diese wirklich klasse Formel (!)

wird dann eben zu

=MAX(INDEX
(P1:INDEX(P:P;ANZAHL2(A:A))*
(A1:INDEX(A:A;ANZAHL2(A:A))={"xx"."yy"})*
(B1:INDEX(B:B;ANZAHL2(A:A))="zz");))

(natürlich gliedert man =ANZAHL2(A:A) stattdessen aus!) Mit

=REST(MAX(INDEX(
(P1:INDEX(P:P;ANZAHL2(A:A))+ZEILE
(P1:INDEX(P:P;ANZAHL2(A:A)))%%%)*
(A1:INDEX(A:A;ANZAHL2(A:A))={"xx"."yy"})*
(B1:INDEX(B:B;ANZAHL2(A:A))="zz");));1)/1%%%

gibts dazu noch die entspr. Zeile.

 

Auch auf die Gefahr hin am Thema vorbei zu reden.
Grundsätzlich ist es (eigentlich) relativ simpel das in VBA ohne worksheetfunctions hinzubekommen.
Eigentlich Komma weil .... der Max-Wert kann ein Wert von mehreren Werten sein. Hat man den Höchstwert ermittelt, heisst das noch nicht, dass man weiss, woher der kommt.
Deswegen kommt es auch darauf an, was man für Erwartungen an das Ergebnis hat.
Numerische Daten, alphanumerische Daten, gemischte Daten. Ein Riesenthema.

Zum VBA. Der Beispielcode orientiert sich an deiner anfänglichen Frage, in der es nur um Zahlen geht.
Er ist bewusst simpel und stellenweise nicht auf die kürzeste Art und Weise konzipiert. Er soll deinem Aha-Effekt dienen und sollte vor allem lesbar sein.
Normalerweise wird sowas in Datenfeldern abgearbeitet, da dieser Weg definitiv nicht der schnellste Weg ist.

Code:

 

\@Andreanoway

eine verständliche Lösung. Für mich fast noch besser als die Index-Geschichte.
Da kann ich gut in VBA weiter arbeiten. Danke!

 

=MAX(INDEX
(P1:INDEX(P:P;ANZAHL2(A:A))*
(A1:INDEX(A:A;ANZAHL2(A:A))={"xx"."yy"})*
(B1:INDEX(B:B;ANZAHL2(A:A))="zz");))

kann man noch abkürzen mit

=MAX(INDEX(p*(a={"xx"."yy"})*(b="zz");)) und
a: =$A$1:INDEX($A:$A;$H$1)
b: =$B$1:INDEX($B:$B;$H$1)
p: =$P$1:INDEX($P:$P;$H$1) (diese 3 sind definierte Namen)
H1: =ANZAHL2(A:A)

Die längere Formel entsprechend mit:
=REST(MAX(INDEX((p+ZEILE(p)%%%)*(a={"xx"."yy"})*(b="zz");));1)/1%%%