Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: vorhandener Wert suchen.

VBA: vorhandener Wert suchen.
14.02.2005 19:07:35
Domi
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: vorhandener Wert suchen.
Ute

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
AW: VBA: vorhandener Wert suchen.
14.02.2005 19:15:11
Josef
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!
Super! vielen Dank!
14.02.2005 19:19:09
Domi
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
Anzeige
AW: VBA: vorhandener Wert suchen.
ransi
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

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige