find bis bestimmter Zelle

Question

Hallo,

ich möchte in einer Spalte "A" nach einer str-Variablen suchen. Allerdings soll die Suche nur die ersten Zellen bis z.B. "A10" umfassen.
Danke und Gruß A.

Answer 1

Hallo Andreas,

hier mal ein Beispiel:

Sub suchen()

Dim suchtext As String
Dim Ergebnis As Range

'Suchtext eingeben
suchtext = "Test"

With ActiveSheet.Range("A1:A10")
Set Ergebnis = .Find(suchtext, LookIn:=xlValues, lookat:=xlPart)
End With

If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden", 0, "Suche abgeschlossen"
Else
Ergebnis.Activate
End If

End Sub

Durch lookat:=xlPart wird der Suchbegriff auch innerhalb des Inhalts der Zelle (Teil des Zellinhalts) gesucht. Bei lookat:=xlWhole müssen der Suchbegriff und der entsprechende Zellinhalt übereinstimmen, damit ein Ergebnis angezeigt wird.


Gruß

M.O.

Answer 2

Hallo M.O.

vielen Dank!!
Gruß A.

Answer 3

Hallo Andreas,

das ging ja schnell ;-). Danke für die Rückmeldung.

Gruß

M.O.