VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zahl +/- 1 suchen

Gruppe

Allgemein

Bereich

Suchen

Thema

Zahl +/- 1 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

    


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