VBA: vorhandener Wert suchen.

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "VBA: vorhandener Wert suchen."