Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Find Methode Zellen finden größer Wert

Find Methode Zellen finden größer Wert
04.12.2014 23:59:30
Robert
Hallo zusammen,
ich will mit der Find-Methode abfragen ob in einem Range mindestens eine Zelle
den Wert größer 50 hat.
Bei folgendem Makro bekomme ich die Fehlermeldung:
"Erwartet Listentrennzeichen oder )"
Sub Abfrage_groesser_50()
Dim c As Range
Set c = Range("AG10:AO56")
Set ergebnis = c.Find(what:>50, lookat:=xlWhole, LookIn:=xlValues)
If ergebnis Is Nothing Then
MsgBox "keine groesser 50"
Else: MsgBox "OK"
end if
End Sub

....what:=>50 geht auch nicht.
nach längerer Internet-Recherche komm ich nicht weiter.
Kann mir jemand bitte einen Tipp geben?
Danke schon mal im vorraus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Find Methode Zellen finden größer Wert
05.12.2014 00:38:06
Mullit
Hallo,
wenn die Zellen unsortiert sind, kannst Du's z.B. besser so machen:
Option Explicit
Public Sub Abfrage_groesser_50()
Dim avntArray As Variant
Dim vntElem As Variant
avntArray = Range("AG10:AO56")
For Each vntElem In avntArray
If vntElem > 50 Then MsgBox "OK": Exit For
Next
If IsEmpty(vntElem) Then MsgBox "keine groesser 50"
End Sub

Gruß,

AW: Find Methode Zellen finden größer Wert
05.12.2014 01:05:33
Robert
Hallo Mullit,
Vielen Dank für die schnelle Antwort.
Das Makro funktioniert einwandfrei!
Ich schau mir die Thematik bzgl. vntElem und avntArray
auf jeden Fall noch an.
Bleibt noch die Frage ob man mit der Find-Methode generell keinen größer oder kleiner Wert
angeben kann. Nur so aus Interesse...
Gruß

Anzeige
mit Find nicht, aber mit CountIf (Zählenwenn)
05.12.2014 08:29:48
Tino
Hallo,
Sub Abfrage_groesser_50()
Dim c As Range
Set c = Range("AG10:AO56")
If Application.WorksheetFunction.CountIf(c, ">50") > 0 Then
MsgBox "keine groesser 50"
Else
MsgBox "OK"
End If
End Sub
Gruß Tino

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige