Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
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
Inhaltsverzeichnis

erweiterung möglich?

erweiterung möglich?
06.02.2016 17:37:01
Thomas
Hallo Excelfreunde,
ich habe eine userform in der ich mit dem
Set rngSearch = .Range("B:J").Find(What:=txtSearch, After:=.Range("B65536")) sehr schnell eine tabelle durchsuchen kann.
Leider kommt es nun vor das ich auch nach Datumswerte suchen muss.
Habe schon herausgefunden das es womöglich mit
Dim Datum
Datum = txtSearch
Set rngSearch = .Range("B:J").Find(What:=CDate(Datum), After:=.Range("B65536"))
gehen könnte . Nur ich weiss einfach nicht wie ich es hinbekommen könnte das nach beidem gesucht wird.
Vielleicht suche nach What:=txtSearch wenn nichts gefunden dann nach (What:=CDate(Datum)
Dieser What:=CDate(Datum) and What:=txtSearch versuch ist auch irgendwie nicht gewinn bringend
Kann sich dies mal jemand anschauen
liebe grüsse thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erweiterung möglich?
06.02.2016 18:17:25
Daniel
Hi
vielleicht so:
dim SuchWert as Variant
if isDate(txtSearch) Then
SuchWert = CDate(txtSearch)
Else
SuchWert = txtSearch
End if
set rngSearch = .Range("B:J").Find(what:=SuchWert,...)
Gruß Daniel

besten dank an Daniel
06.02.2016 20:36:35
Thomas
Hallo Daniel,
es passt super.
Hab vielen dank für deine ( zum wiederholten male) super schnelle und klasse Lösung.
liebe grüsse thomas
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige