Herbers Excel-Forum - das Archiv

VBA: vorhandener Wert suchen.

Bild

Betrifft: VBA: vorhandener Wert suchen.
von: Domi

Geschrieben am: 14.02.2005 19:07:35
Hallo Zusammen,
Eigentlich nichts exotisches, aber in der Recherche nicht gefunden. Sehr,sehr viele Beiträge. Ein Treffer zu landen ist schon Glücksache:)
In der Spalte "D" stehen verschiedene Werte. Nun möchte ich überprüfen ob der Wert meiner Variabel dort vorkommt.
Sub Wert()
x = Range("A1")
** ist x in der Spalte "D" vorhanden?
if x = nothing then MsgBox "Vorhanden" Else MsgBox "nicht Vorhanden"
End Sub

mit bestem Dank und freundliche Grüsse
Domi
Bild

Betrifft: AW: VBA: vorhandener Wert suchen.
von: Ute
Geschrieben am: 14.02.2005 19:13:37
Sub Wert_da()
If Application.CountIf(Columns(4), [a1]) > 0 Then
MsgBox "Wert aus A1 in Spalte D gefunden!"
Else
MsgBox "Wert aus A1 in Spalte D nicht vorhanden!"
End If
End Sub

mfg Ute
Bild

Betrifft: AW: VBA: vorhandener Wert suchen.
von: Josef Ehrensberger

Geschrieben am: 14.02.2005 19:15:11
Hallo Domi!
Sub Wert()
if Application.CountIf(Range("D:D"), Range("A1")) > 0 Then
MsgBox "Vorhanden"
Else
MsgBox "Nicht vorhanden"
End If
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: Super! vielen Dank!
von: Domi
Geschrieben am: 14.02.2005 19:19:09
Salü miteinander,
was würde ich nur ohne dieses Forum machen!!
Herzlichen Dank für eure Bemühungen
und "en schöne Abig" aus der Schweiz
Domi
Bild

Betrifft: AW: VBA: vorhandener Wert suchen.
von: ransi

Geschrieben am: 14.02.2005 19:21:11
hallo domi
sowas?
Option Explicit

Public
Sub such_in_D()
Dim was
was = Range("A1").Value
If [a1] = "" Then Exit Sub
If Not Range("D:D").Find(was) Is Nothing Then
MsgBox was & " gefunden in " & Range("D:D").Find(was).Address
Else:
MsgBox "nichts gefunden"
End If
End Sub

ransi
 Bild
Excel-Beispiele zum Thema "VBA: vorhandener Wert suchen."
CommandBar in Abhängigkeit vorhandener Makros erstellen Suchbegriff über mehrere Tabellenblätter suchen.
Aktuellen Arbeitstag in allen Arbeitsblättern suchen.