Verstehe die Frage nicht.
Gruss
Chris
https://www.herber.de/forum/faq.htm
Sub wir_testen()
Wert = [F4]
N?chsth?her = 1000000000
For Each Zelle In Range("G1:U4")
If Zelle > Wert Then
If Zelle - Wert < N?chsth?her - Wert Then N?chsth?her = Zelle
End If
Next
MsgBox N?chsth?her
End Sub
Function BobbySpezial(ZelleWert As Range, Bereich As Range) As Currency
Dim Arr()
Dim Zelle As Range
Dim Zaehler As Long
Application.Volatile
Zaehler = -1
For Each Zelle In Bereich
If Zelle <> "" And IsNumeric(Zelle) And Zelle > ZelleWert Then
Zaehler = Zaehler + 1
ReDim Preserve Arr(Zaehler)
Arr(Zaehler) = Zelle
End If
Next Zelle
BobbySpezial = WorksheetFunction.Min(Arr)
End Function
Sub NaechstGroessere()
Dim lrZelle As Range, lrZelle1 As Range
Dim liZeile As Integer
Dim liWert As Double
For Each lrZelle In Range("G1:U4")
If lrZelle.Value > Range("F4").Value Then
liWert = lrZelle.Value
Else
GoTo 1
End If
For Each lrZelle1 In Range("G1:U4")
If liWert > lrZelle1.Value And lrZelle1.Value > Range("F4").Value Then
liWert = lrZelle1.Value
End If
Next
Exit For
1 Next
Range("A1").Value = liWert
End Sub
Sub wir_testen()
Wert = [F4]
N?chsth?her = 1000000000
For Each Zelle In Range("G1:U4")
If Zelle > Wert Then
If Zelle - Wert < N?chsth?her - Wert Then N?chsth?her = Zelle
End If
Next
MsgBox N?chsth?her
End Sub
Function BobbySpezial(ZelleWert As Range, Bereich As Range) As Currency
Dim Arr()
Dim Zelle As Range
Dim Zaehler As Long
Application.Volatile
Zaehler = -1
For Each Zelle In Bereich
If Zelle <> "" And IsNumeric(Zelle) And Zelle > ZelleWert Then
Zaehler = Zaehler + 1
ReDim Preserve Arr(Zaehler)
Arr(Zaehler) = Zelle
End If
Next Zelle
BobbySpezial = WorksheetFunction.Min(Arr)
End Function
Sub NaechstGroessere()
Dim lrZelle As Range, lrZelle1 As Range
Dim liZeile As Integer
Dim liWert As Double
For Each lrZelle In Range("G1:U4")
If lrZelle.Value > Range("F4").Value Then
liWert = lrZelle.Value
Else
GoTo 1
End If
For Each lrZelle1 In Range("G1:U4")
If liWert > lrZelle1.Value And lrZelle1.Value > Range("F4").Value Then
liWert = lrZelle1.Value
End If
Next
Exit For
1 Next
Range("A1").Value = liWert
End Sub