Abfragen, ob Zahl in Zahlenbereich liegt
21.11.2004 14:25:41
Martin
ich möchte abfragen, ob eine bestimmte Zahl in einem bestimmten Zahlenbereich liegt. Also wenn ich den Zahlenbereich 1 - 100 habe dann liegt die Zahl 50 in diesem Zahlenbereich. Allerdings kann mein Zahlenbereich auch 100 - 1 lauten!
Eine vereinfachte Darstellung meiner bisherigen Lösung (sinngemäß):
Sub Makro1()
Dim BereichStart As Integer
Dim BereichEnde As Integer
Dim Zahl As Integer
BereichStart = InputBox("Bereichsgrenze 1:")
BereichEnde = InputBox("Bereichsgrenze 2:")
Zahl = InputBox("Prüfen, ob folgende Zahl in dem Bereich liegt:")
If (Zahl > BereichStart And Zahl < BereichEnde) Or _
(Zahl < BereichStart And Zahl > BereichEnde) Then _
MsgBox "Zahl liegt im Bereich"
End Sub
Meine Frage: Geht die Bereichsprüfung auch weniger umständlich? Bei mir handelt es sich um eine Abfrage von UserForm- und Tabellen-Daten und ich verliere langsam den Überblick bei dem vielen Quellcode!