Office: Minimum finden unter bestimmten Bedingungen

Hey!

Danke für deine Geduld und dass du nicht schon längst das Weite gesucht hast, obwohl ich dir das auch nicht verübeln könnte! Man hat mir gesagt, dass ich einfach zu viel auf einmal abfragen will, deswegen hab ich eine Bedingung rausgenommen und sie anders abgefangen. Ich wollte das Ganze damit eigentlich eher erleichtern! Und leider hab ich erst vorhin gesehen, dass einige Minimalwerte mehrfach vorkommen (in der Originaldatei). Ich werde für das nächste mal versuchen, gleich alles zu bedenken! Tut mir leid, der ganze Kuddelmuddel war nicht meine Absicht!
Danke für Geduld und Ehrlichkeit, Ingo *Smilie

Ich werd mir gleich mal deine Datei anschauen...
Viele Grüße, Vigo2

 

Guten Morgen zusammen!

Danke für die Formel, sie funktioniert bestens. Ich hab im nächsten Schritt versucht sie automatisch durch ein Makro ablaufen zu lassen. Hierfür hab ich den Makrorekorder laufen lassen und einfach den Bereich angeglichen. Leider gibt er mir dann nur leere Zellen aus. Woran liegt das? Hat jemand eine Idee?

Sub Makro2()
Range("D2:d16").Select
Selection.FormulaArray = _
"=IF(SUM((R2C1:R1000C1=RC1)*(R2C2:R1000C2=""T1""))>1," & Chr(10) & "IF(AND(MIN(IF((R2C1:R1000C1=RC1)*(R2C2:R1000C2=""T1""),(R2C3:R1000C3)+ROW(R2C3:R1000C3)/100000))=RC[-1]+ROW()/100000,RC2=""T1""),""VT"","""")," & Chr(10) & "IF(RC2=""T1"",""GT"",""""))"
End Sub

Viele Grüße, Vigo2

 

Hallo Vigo2,

Arrayformeln darfst Du nicht über mehrere Zellen markiert gleichzeitig erstellen. Erstelle die Formel erst in D2, kopiere dann D2 und füge das dann in D3:d16 ein. Nach Deinem VBA-Code, sähe der dann so aus:

PHP:

         Range("D2").FormulaArray = _
"=IF(SUM((R2C1:R1000C1=RC1)*(R2C2:R1000C2=""T1""))>1," & Chr(10) & "IF(AND(MIN(IF((R2C1:R1000C1=RC1)*(R2C2:R1000C2=""T1""),(R2C3:R1000C3)+ROW(R2C3:R1000C3)/100000))=RC[-1]+ROW()/100000,RC2=""T1""),""VT"","""")," & Chr(10) & "IF(RC2=""T1"",""GT"",""""))"
Range("D2").Copy
Range("D3:D16").Select
ActiveSheet.Paste


 

Achso, alles klar nun weiß ich Bescheid. Danke! Sag mal, wie erstellst du diese Codes?
Die sind viel übersichtlicher, wenn man etwas posten möchte! Und dann auch leichter zu lesen...

 

Hallo Vigo2,

einfach auf den Button "PHP" drücken dann erscheint bei Dir:

"PHP" und "/PHP" jeweils in eckigen Klammern

und der Corser steht dazwischen. Alles was Du da herein kopierst erscheint dann in so einem Kästchen.

LG Ingo

 

Danke für deinen Tipp mit der Erstellung des PHP- Codes!
Ich hab noch eine Frage zu deiner Formel: Sie wird ja nun für die Bedingung "T1" ausgeführt. Wenn ich da die Bedingung ändere zu "T2" dann entfallen die Zuordnungen für "T1" und das ganze wird für "T2" ausgeführt.
Mir ist aufgefallen, dass dann auch in den Zellen, wo dann die Bedingung "T2" nicht erfüllt ist (weil da ja "T1" hinterlegt ist) die Formel drinnen steht. Die Zellen werden sozusagen dann mit der aktuellen Formel überschrieben. Wie kann ich da denn Abhilfe schaffen? Oder mach ich da etwas falsch?

Viele Grüße,
Vigo2

 

Hallo Vigo2,

da Du unbelehrbar bist, hast Du mich nun auch vergrault.

Tschüß
Ingo

 

Das ist in Ordnung, Ingo. Ich habs mir schon fast gedacht und bin da nicht böse. Ich versuche, dass, was du mir gesagt hast, fürs nächste Mal zu beherzigen. Vielleicht hilft mir ja jemand anderes bei meinem Problem...
Ich hab mich da mal an einem Code versucht. Leider wirft er mir nur VT aus. Ich weiß wirklich nicht woran es liegt... Fällt irgendjemand hier mein Fehler auf?

Code:

VG, Vigo2

 

Hallo zusammen!

Ich habe weiter nach einer Lösung für mein Problem gesucht und ich denke, dass ich fündig geworden bin.
Leider klappt mein oben aufgeführter Code nicht. Er erkennt dabei die Inhalte der Zellen nicht, was ich um ehrlich zu sein nicht so recht verstehe*mad.gif* . Wenn jemand weiß, woran es liegt, dann würde ich mich nach wie vor darüber freuen, wenn jemand die Abhilfe dafür kennt oder mir einen Tipp geben kann, was ich daran ändern müsste.
Nun zur Lösung: ich hab mir gedacht, dass die Formel von Ingo eigentlich ja bestens funktioniert, sie muss halt nur dort angewandt werden, wo die Bedingung erfüllt ist ("T1). Das hir ist der Code womit es klappt, sollte jemand mal einen ähnlichen Fall haben.

Code:

Viele Grüße, Vigo2