spalten vergleichen und Wert feststellen

Hallo Excel Experten,
ich bin von letzter Nacht noch so richtig genervt und KO und schon steht neues an:
Mit Resize, Offset und anderen "Strickmustern" habe ich mich schon immer ganz schwer getan, und ist bei der nächsten Lösung wohl angesagt.
Beispiel:
Ich habe 2 Spalten mit Werten
SpA- SpD
20 - 10
22 - 12
28 - 16
29 - 18
30 - 20
SpalteA soll durchlaufen werden und festgestellt werden,
ob jeweiliger Wert 3 Spalten weiter einen Wert findet, der identisch ist oder bis zu einem Unterschied von +2 oder -2 vorkommt.
Wenn Ja, dann 1 --- Wenn Nein, dann 0

Bitte auf das angefügte Beispiel-Sheet schauen:
https://www.herber.de/bbs/user/158497.xlsb

Kann ein Experte bitte mal drauf schauen und mir eine Makro-Lösung anbieten?!

Gruss
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function IstZwischen(ByVal MinWert, ByVal MaxWert, ByVal Bereich As Range) As Long Dim Z As Range For Each Z In Bereich If Z.Value >= MinWert And Z.Value = MaxWert Then IstZwischen = Z.Row Exit Function End If Next End Function

Hallo Yal,
aufbauend auf deine UDF habe ich mich nun auch dran gemacht. Im Prinzip soll die neue Funktion das gleiche machen, allerdings mit der Änderung, das ähnliche Werte nicht in Spalte DD2:DD6, sondern in DA2:DA6. gesucht werden.
Also:
Deine Formel war:

=(istzwischen(DA2-2;DA2+2;DD$2:DD$6)>0)*1

meine nun:

=(IstZwischen1(DA2-2; DA2+2; DA$2:DA$6)>0)*1

die "neue UDF" mit dem Namen "IstZwischen1" hat den Code:

Public Function IstZwischen1(ByVal MinWert As Double, ByVal MaxWert As Double, ByVal Bereich As Range) As Long
    Dim Z As Range
    For Each Z In Bereich
        If Abs(Z.Value - MinWert) = 2 And Abs(Z.Value - MaxWert) = 2 Then
            IstZwischen1 = Z.Row
            Exit Function
        End If
    Next
    IstZwischen1 = 0
End Function

Leider ist da wohl ein Fehler drinne, das Ergebnis ist immer 1, was falsch ist.
Kannst du mal prüfen und wenn du den Fehler entdeckst, mir bitte bescheid sagen?!

Gruss
Fred

Public Function IstZwischen(ByVal Zelle As Range, ByVal Toleranz As Double, ByVal Bereich As Range) As Long Dim MinWert As Double Dim MaxWert As Double Dim Z As Range MinWert = Zelle.Value - Abs(Toleranz) MaxWert = Zelle.Value + Abs(Toleranz) For Each Z In Bereich If Zelle.Address > Z.Address Then If Z.Value >= MinWert And Z.Value = MaxWert Then IstZwischen = Z.Row Exit Function End If End If Next End Function

Beliebteste Forumthreads (12 Monate)

spalten vergleichen und Wert feststellen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

spalten vergleichen und Wert feststellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread