AW: Kleinster Wert unter 2 Bedingungen
12.09.2014 17:40:25
Adis
Hallo
die Beispiel Datei habe ich mir noch nicht angesehen, ich hab nur Excel 2003.
Bei der Formel ist mir aufgefallen das in Spalte A nur Firma A ausgewertet wird.
Gebe ich Firma B oder C ein bleibt die Auswertung auf Firma A bestehen.
Ich bin auch davon ausgegangen das in Spalte A Zahlenwert stehen. Ist das richtig?
Mein Programm ist zwar eine alte Programmiersprache. Es funktioniert auf jeden Fall.
Wenn es bessere Lösungen gibt waere das auch schön. Einfach mal ausprobieren.
Das Makro in ein normales Modublatt kopieren und zuerst in einer Testdatei testen.
Ich benutze die Spalte D als Hilfsspalte um das Ergebnis anzuseigen. Sollten darin
Werte stehen muss man den Bereich aendern oder die markierten Zeilen im Makro löschen.
Es gibt auf jeden Fall eine Anzeige über MsgBox mit kleinstem Wert und Adressangabe.
Sub Kleinstes_Angebot_finden()
Dim kWert, vWert, Gefunden, übl
Sheets("Tabelle1").Select
'Ergebnis Hilfsspalte löschen
Range("D2:E20").ClearContents '** Hilfsspalte (ggf. löschen)
'zuerst Max Wert im gesamten Bereich laden
For Each j In Range("A2", [a2].End(xlDown))
If j.Value > 1 And j.Value > kWert Then kWert = j.Value
Next j: vWert = kWert
neu: 'wiederholen bis min. Wert gefunden wurde (Überlauf Schutz)
Gefunden = Empty: Adr = Empty: übl = übl + 1
'Schleife für kleinsten Wert igesamten Bereich suchen
For Each j In Range("A2", [a2].End(xlDown))
If j.Value > 1 And j.Cells(1, 3) = "Angebot gestellt" Then _
If j.Value 10 Then MsgBox "Überlauf - nicht gefunden": Exit Sub
If Gefunden = Empty Then GoTo neu
'Ergebnis Gefunden, Anzeige und Notiz in Spalte D
Range(Adr).Cells(1, "D") = Gefunden 'Hilfssspalte ggf. löschen
MsgBox Adr & " " & Gefunden
Exit Sub
End Sub
Gruss Adis