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."