Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

erweiterung möglich?

Forumthread: 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

Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige