Eine Zahl innerhalb einer Toleranz suchen (Tipp_80) -
11.01.2009Angenommen, Sie haben eine große Tabelle mit Werten und suchen eine bestimmte Zahl innerhalb einer Toleranzgrenze. Dann hilft Ihnen dieses Makro weiter:
Sub toleranz_wert()
Dim C As Range
Dim sBegriff
sBegriff = InputBox("Zu suchende Zahl?")
If sBegriff = "" Then Exit Sub
For Each C In Selection
If C >= sBegriff - 10 And C <= sBegriff + 10 Then
C.Select
Exit Sub
End If
Next C
Beep
MsgBox "Zahl nicht gefunden!"
End Sub
In diesem Beispiel beträgt die Toleranzgrenze +/- 10.
