✔ Excel VBA - Wertebereich definieren

[Orakel]

Tja

Ist mir ziemlich unangenehm, aber es funktioniert bei mir nicht...

und was fangen wir jetzt mit dieser Aussage an? Keiner weiss was nicht funktioniert. Aber IMHO kann es nur am Intervall nach der Step Anweisung liegen. Setzte Sie doch einfach mal Stück für Stück kleiner.

Gruß
Das Orakel

 

[Jacka]

Hi!

Entschuldige, dass ich mich nicht richtig ausgedrückt habe.

Folgendes funktioniert nicht:
Ohne den Zusatz "Step 0.1" und einer ganzen Zahl findet er die Zelle.
Mit "Step 0.1" und einer ganzen Zahl findet er die Zelle.
Mit "Step 0.1" und einer Zahl mit einer Kommastelle findet er die Zelle nicht.

Grüße,
Jacka

 

[thekorn]

Tschuldigung, dass ich mich einmische, aber nachdem ich das Problem überflogen habe, bin ich der Meinung dass es eine einfache "If"-Abfrage auch tut:

Ersetze:

    Set oRange = Range("A2:G15")
    For dIndex = 120 To 150 Step 0.1
        For Each oZelle In oRange
            If CDbl(oZelle.Value) = CDbl(dIndex) Then
                oZelle.Interior.ColorIndex = 7
            End If
        Next oZelle
    Next dIndex

Durch soetwas:

    Set oRange = Range("A2:G15")
        For Each oZelle In oRange
            If ((oZelle.Value > 120) AND (oZelle.Value < 150)) Then
                oZelle.Interior.ColorIndex = 7
            End If
        Next oZelle

 

[Jacka]

Hi!

Bin nun zu folgendem Ergebnis gekommen (ganz ohne Step):

Sub test()
    Dim dIndex, dMaxDiff As Double
    Dim oRange  As Range
    Dim oZelle  As Range

    dIndex = 1519
    dMaxDiff = 2
    Set oRange = Range("A:A")
    For Each oZelle In oRange
        If Abs(CDbl(Val(oZelle.Value)) - dIndex) <= dMaxDiff Then
            oZelle.Interior.ColorIndex = 7
        End If
    Next oZelle
End Sub

Vielen Dank für eure Hilfe!!

Grüße,
Jacka