Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zahl +/- 1 suchen

Gruppe

Suchen

Problem

Wie kann ich eine Zahl +/- 1 in einer Spalte suchen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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