Hallo,
das gibt es natürlich mehrere Möglichkeiten, kommt immer drauf an was man genau machen möchte.
Reicht dir nur zu wissen ob die Zahl 10 Vorkommt?
Dann könnte man über die Suche gehen.
Dim r As Range
Set r = Range(Cells(3, 2), Cells(14, 4)).Find(What:="10", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If r.Count Then MsgBox "es wurde 10 gefunden"
Das ganze könnte dann auch über eine Schleife, für mehrere Zahlen laufen.
|