Optimierung Liste nach 3 Bedingungen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim i As Long, Soll As Long Soll = Range("J3").Value Range("O4").CurrentRegion.Offset(1, 0).ClearContents Range("R2").ClearContents Range("M11").ClearContents For i = 0 To 2 ^ (Range("A1").CurrentRegion.Rows.Count - 1) - 1 Range("J1").Value = i If Soll = 0 Or Range("j2") = Soll Then If Range("M11").Value = "" Or Range("M11").Value > Range("M9").Value Then Intersect(Range("A1").CurrentRegion, Columns(7).SpecialCells(xlCellTypeFormulas, 1). _ EntireRow).Copy Range("O5") Range("M11").Value = Range("M9").Value Range("R2").Value = "'" & Range("M9").Text End If End If Next Range("J1").ClearContents End Sub

Hallo zusammen,
danke für eure Unterstützung! Ich weiß auch nicht genau was ich falsch mache aber das richtige Ergebnis kommt noch nicht heraus.
Den Tipp von Peter umgesetzt, also:

Sub Schaltfläche1_Klicken()
Dim i As Long, Soll As Long
Soll = Range("J3").Value
Range("O4").CurrentRegion.Offset(1, 0).ClearContents
Range("R2").ClearContents
Range("M11").ClearContents
For i = 0 To 2 ^ (Range("A1").CurrentRegion.Rows.Count - 1) - 1
Range("J1").Value = i
If (Soll = 0 Or (Range("j2") = Soll)) And (Range("j2") >= 1) Then
If Range("M11").Value = "" Or Range("M11").Value > Range("M9").Value Then
Intersect(Range("A1").CurrentRegion, Columns(7).SpecialCells(xlCellTypeFormulas, 1). _
EntireRow).Copy Range("O5")
Range("M11").Value = Range("M9").Value
Range("R2").Value = "'" & Range("M9").Text
End If
End If
Next
Range("J1").ClearContents
End Sub

funktioniert erstmal ohne Laufzeitfehler, wenn ich bei j3, dem einzugebenden Soll-Wert 0 eingebe.
Mir scheint so, als wäre die Annäherung noch nicht so gut wie als ich 9 als festgelegten Soll-Wert eingetragen habe. Vielleicht ist noch etwas falsch.
Zu der Nachricht von Daniel. Ich dachte es wird der Wert "j2" geprüft, ob dieser dem Eingabewert in J3 entspricht, daher Soll = 0 Or Range("j2") = Soll Then. Von daher muss ich doch nicht "j2" in "j3" ändern oder?
Sorry, glaube ich habe dich nicht ganz verstanden.
Vielleicht könntest du mir schreiben welche Stelle genau falsch ist. Scheine VBA mäßig doch nur bedingt Kenntnisse zu haben.
@peter: Ja dein Tool habe ich auch getestet! Sehr gute Auflistung mit der Annäherung an 476. Aber die beiden anderen Kriterien werden nicht betrachtet oder?
Beste Grüße und Danke!

Hi
im Prinzp reicht es aus, wenn du abfragst:

If Soll = 0 Or Soll = Range("J2").value

und die Schleife bei 1 beginnen lässt, dann findes das SpecialCells immer was:

For i = 1 To 2 ^ (Range("A1").CurrentRegion.Rows.Count - 1) - 1

um die Sache etwas zu beschleunigen, reicht ein

Application.ScreenUpdating = False

am Anfang. Dann siehst du nicht mehr, wie gerechnet wird aber es geht schneller.
aber das ganze geht auch ohne Makro, hier mal als gekürzte Beispieldatei.
einfach die letzte Zeile nach unten ziehen, (Anzahl Zeilen kannst du dir ja ausrechen, bis alles 1 ist, Zeile 32773)
Optimale Werte kannst du dann für bestimmte Anzahlen über den Autofilter finden.
hier die Datei dazu:
https://www.herber.de/bbs/user/141721.xlsm
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Optimierung Liste nach 3 Bedingungen

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread