Eine Zahl in einem Zahlenstrahl korrekt einordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub TestIt() Dim i&, j& Dim blnLow As Boolean With Sheets("Tabelle1") For i = 3 To .Cells(.Rows.Count, 2).End(xlUp).Row blnLow = False For j = 4 To 12 Step 2 If .Cells(i, j) >= .Cells(i, 2) Then .Cells(i, j - 1) = .Cells(i, 2) blnLow = True Exit For End If Next If Not blnLow Then .Cells(i, 13) = .Cells(i, 2) Next End With End Sub

Sub TestIt() Dim i&, j&, dblVal# Dim blnFnd As Boolean Const dblDELTA# = 0.2 With Sheets("Tabelle1") For i = 3 To .Cells(.Rows.Count, 2).End(xlUp).Row blnFnd = False dblVal = .Cells(i, 2).Value For j = 5 To 17 Step 4 If .Cells(i, j) + dblDELTA >= dblVal Then If .Cells(i, j)

Hi Christian,
super, Danke noch mal. Ich wünschte ich könnte nur die Hälfte.
Ich habe das Makro jetzt versucht auf meinen Bedarf hin anzupassen. Dabei gibt es folgendes Thema: Die Schwellenwerte stiegen in meiner Demo-Datei von links nach rechts an. Dein Makro funktioniert auch bestens.
In 'meiner' Realität nehmen die Schwellenwerte jedoch von links nach rechts ab (!), wie ich jetzt bei meinen Versuchen erst wirklich realisiert habe. Ich habe dann gedacht, tja da biste wenigstens halb clever und schreibst die Zeile "For j = 5 To 17 Step 4" um auf "For j = 17 To 5 Step 4", also umgedreht, aber da bleibt er dann hängen.
Kann man das noch hinbekommen, dann müßte es nämlich praktisch perfekt sein.
Zur Verdeutlichung habe ich die Demo-Datei nochmal angehängt .
Hier jetzt bis "29 to 5" weil ich noch ein paar Spalten hinzugefügt habe.
https://www.herber.de/bbs/user/72724.xls
Ach ja PS: die Toleranz, "Const dblDELTA# = 0.2", kann man das nicht so gestalten, daß man das in der Liste individuell abändern kann, oder muß man das halt im Makro jeweils einstellen?
Danke für Alles!!

Hi @all,
Christian hatte mir eine tolle Lösung für mein obiges Problem geschaffen. Jetzt habe ich ein klitzekleines Problem, das sicher peinlich ist danach zu fragen. Aber ich weiß es schlicht nicht und ich finde auch nichts darüber.

Um die Toleranz aus der Tabelle zu lesen, nimmst du hier jeweils den Wert aus Zeile 2

Wie lautet der Syntax um eine feste Zelle in das VBA zu integrieren?
Derzeit sieht das so aus:
Const dblDELTA# = 15
und soll so zukünftig so aussehen:
Const dblDELTA# = Zelle A3
Ich habe verschiedene Variationen mit cells (3, 1) und so weiter durchprobiert, aber das frisst er nicht.
Vielleicht kann mir auch jemand eine gute Quelle nennen, wo man so etwas nachschlagen kann.
Wer kann mir kurzfristig helfen?
Danke vorab.
Uwe

Beliebteste Forumthreads (12 Monate)

Eine Zahl in einem Zahlenstrahl korrekt einordnen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eine Zahl in einem Zahlenstrahl korrekt einordnen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread