Thema: Zahl +/- 1 suchen

StandardModule: basMain

Sub ZahlSuchen()
   Dim rng As Range
   Dim var As Variant
   var = Application.InputBox( _
      prompt:="Bitte Zahl eingeben:", _
      Default:=7, _
      Type:=1)
   If var = "" Then Exit Sub
   var = CLng(var)
   For Each rng In Selection.Cells
      If rng.Value >= var - 1 And rng.Value <= var + 1 Then
         rng.Select
         Exit Sub
      End If
   Next rng
   Beep
   MsgBox prompt:="Zahl nicht gefunden!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen