Office: Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ...

tgasau · 26. August 2008

Hallo zusammen,

ich brauch mal wieder Eure Hilfe! *wink.gif*

Ich möchte prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat und wenn ja, in welcher Zeile befindet sich dieser Wert? Ich mache das momentan mit einer For Schleife, aber das dauert ewig, weil das sehr oft passieren muss. Das sieht bei mir so aus:

Code:

For n=1 to 40000
If cells(n,1).value = vergleichswert Then
zeile_gefunden = n
exit for
End If
Next n
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibts dafür nen VBA Befehl? Das muss doch kürzer / schneller gehen?

Danke im voraus ;-)

Viele Grüße
Till

:)

ZeC · 28. August 2008

Hi tgasau!

Probier's mal so:

Code:

tgasau · 31. August 2008

Hi Chris,

danke für den Code, funktioniert gut. Aber leider nur, wenn der Vergleichswert in der Spalte auch vorkommt. Wenn dies nicht so ist, dann gibt es den Fehler: Objektvariable oder With-Blockvariable nicht festgelegt. Kann man dies irgendwie umgehen?

Danke im voraus!
Viele Grüße
Till *Smilie

jinx · 1. September 2008

Moin, Till,

Code:

Sub SearchValue()
Dim Vergleichswert As Long
Dim rngFound As Range

Vergleichswert = 123
With Sheets("Tabelle1")
Set rngFound = .Columns(1).Find( _
What:=Vergleichswert, _
LookIn:=xlFormulas, _
LookAt:=xlWhole)
End With

If rngFound Is Nothing Then Exit Sub
Debug.Print rngFound.Row
Set rngFound = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bzw. Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers...

Office: Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ...

Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ...

Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ...

Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ...

Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ... - Similar Threads - Prüfen Zelle Spalte

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

zwei Zellen prüfen steht was drinnen dann schreib text

Wert aus Zelle in einer anderen Datei suchen und prüfen, ob weiterer Wert vorhanden ist

Prüfen und Verketten von Zellen mit Formeln als Inhalt

Verwenden von WENN, um zu prüfen, ob eine Zelle leer ist

Prüfen ob Zelle in bestimmter Spalte markiert ist