Angenommen, 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.

You have no rights to post comments