VBA-Makro zum herausfiltern von Werten
04.06.2016 18:18:26
Werten
mein Problem ist Folgendes: Ich habe eine unendlich lange Liste mit Werten aus denen ich jeweils die Maxima raussortieren soll. Es geht hier um den Ausschwingvorgang eines Bauteils. Mithilfe von Excel-Formeln bin ich mittlerweile soweit gekommen, dass in der letzten Spalte bei den nicht-Maxima #N/A steht und nur noch bei den Maxima die Zahlenwerte. Allerdings sollen diese Maxima nun in einer weiteren Spalte direkt untereinander stehen und zusätzlich sollen die Maxima absteigend sein. Dh z.B. der 4. Wert darf nicht gröβer als der 3. Wert sein usw, alle die Werte die dann gröβer sind als der vorherige Wert, sollen ebenfalls nicht kopiert werden.
Ich glaube nicht dass dies mit Formeln möglich ist, deshalb habe ich versucht mit einem Makro zu arbeiten. Im Programmieren war ich allerdings noch nie gut und mit VBA hab ich auch noch nicht gearbeitet. Deshalb, bitte verzeiht mir, wenn es so aussieht als hätte ich mir keine Mühe gegeben aber ich bin echt am verzweifeln.
Hier was ich bisher geschrieben habe, was aber natürlich nicht funktioniert:
Sub Suche_Maxima()
Option Explicit
Dim neuerWert As Variant
Private alterWert As Long
WIEDERHOLUNG:
neuerWert = ActiveCell.Offset(1, 0)
If neuerWert = "#N/A" Then
Resume WIEDERHOLUNG
ElseIf neuerWert Ausserdem würde ich diese Liste mit den übriggebliebenen Werten am Liebsten gleich in ein neues Sheet setzen, war mir aber so schon zu kompliziert. Also wenn mir da noch jemand sagen könnte wie man das schreibt, wäre ich echt dankbar.
Danke im Vorraus für alle Beiträge.
Viele Grüße,
Vicky