VBA Spinnt nach dem 3. Durchlauf
06.08.2020 15:21:02
Bernd
Ich habe vor mit einem VBA den höchsten Wert in Spalte B ab B3 zu ermitteln. Damit es nicht zu lange dauert habe ich es auf B500 begrenzt.
Der größte Wert soll in Line Mitte geschrieben werden (mit Name aus A)
Danach der nächsthöhere Wert in Line Links.
Jetzt soll immer geschaut werden wo der Nächsthöhere Wert hingeschrieben werden soll.
Das ist abhängig davon welche Line den kleineren Wert hat.
Wenn eine der Beiden Lines 20 Namen hat, soll die Jeweilige andere Line bis 20 gefüllt werden.
Wenn beide Lines voll sind, soll mit den nächsten höheren Werten die Line Rechts befüllt werden.
Zweck ist es die ersten beiden Lines mit den Höchsten Werten zu füllen und die 3. Line mit dem höchsten Rest.
Jeweils bis 20 Einträge begrenzt.
Ziel: Gruppe 1 + 2 sind etwa gleich stark und der beste Rest geht in die 3. Gruppe.
Mein Problem ist dieser Part:
Sub Max()
'
Start:
' Maximum in Spalte B finden
Dim maxB As Variant
maxB = Clear
Worksheets("Tabelle1").Activate
Set finden = Cells.Find(WorksheetFunction.Max(Range("B3:B500")), LookIn:=xlValues)
maxB = finden.Row
If maxB = 2 Then GoTo Ende
Range("A" & maxB & ":B" & maxB).Select
Selection.Copy
Im weiteren Verlauf Lösche ich nach dem Einfügen die Zellen A+B heraus damit die Spalte B neu durchsucht werden kann.
Das ganze läuft auch gut 3x durch. Dann hängt sich maxB einfach auf und bleibt bei Wert Zeile 4 hängen.
Anbei habe ich die Tabelle angehängt.
https://www.herber.de/bbs/user/139502.xlsm
Bitte helft mir.
Ich habe schon verschiedene Versionen der Maximalerkennung versucht.
Diese sind Auskommentiert in dem Makro enthalten. Meist hat dabei irgendetwas nicht funktioniert, weshalb ich auf die jetzt aktivierte Version zurückgefallen bin.
Zur Info:
Ich hatte zwischendurch immer wieder das Makro in Zwischenschritten probiert und es hatte funktioniert.
Als ich die Begrenzung auf 20 pro Spalte einprogrammiert hatte, ging das ganze den Bach runter.
Obwohl ich den Programmteil mit der Maxerkennung nicht angefasst hatte.
Ich bin jetzt nach 3 Wochen stundenlanges versuchen einfach am ende.
Wahrscheinlich ist es irgendein Dummer Fehler meinerseits den ich einfach übersehe.
Wer auch immer mir hilft, ein Stoßgebet und ein herzliches Danke sei sein Lohn.
Danke