Eintrag in Spalte per VBA suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Eintrag in Spalte per VBA suchen
von: Albatros
Geschrieben am: 13.11.2003 10:00:46

Ich möchte rausfinden, ob ein gewisser Eintrag in einer Spalte vorhanden ist.
Als Ergebnis möchte ich ein true oder false erhalten.

Das ganze soll in VBA gemacht werden.

Gruß
Oliver

Bild


Betrifft: AW: Eintrag in Spalte per VBA suchen
von: Markus
Geschrieben am: 13.11.2003 10:05:12

Hi,

FIND ist da der Befehl, den Wartheitswert kannst Du dann dazu basteln:
Aus der VBA hilfe:

Dieses Beispiel findet alle Zellen im Bereich "A1:A500" des ersten Tabellenblatts, die den Wert 2 enthalten. Anschließend werden diese Zellen grau formatiert.

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With


markus


Bild


Betrifft: AW: Eintrag in Spalte per VBA suchen
von: Albatros
Geschrieben am: 13.11.2003 10:09:08

Werd ich gleich mal nachschauen.

Vielen Dank,
Oliver


Bild


Betrifft: AW: Eintrag in Spalte per VBA suchen
von: WernerB.
Geschrieben am: 13.11.2003 10:08:33

Hallo Oliver,

meinst Du so etwas:

Sub Oliver()
Dim var As Variant
Dim SuBe As String
Dim check As Boolean
    SuBe = "Suchbegriff"
    var = Application.Match(SuBe, Range("A:A"), 0)
    If Not IsError(var) Then
      check = True
    End If
    MsgBox check
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Eintrag in Spalte per VBA suchen
von: Albatros
Geschrieben am: 13.11.2003 10:12:09

Genau so. Hab es jetzt mit Find gemacht, läuft aber auch.


Danke,
Oliver


Bild


Betrifft: AW: Eintrag in Spalte per VBA suchen
von: Albatros
Geschrieben am: 14.11.2003 16:09:37

Kannst du mir sagen, wie ich dann die Zelle rausbekomme, in der der Eintrag gefunden wurde.


Danke,
Oliver


Bild

Beiträge aus den Excel-Beispielen zum Thema " Eintrag in Spalte per VBA suchen"