Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ein Datum ohne Jahresangabe suchen

Ein Datum ohne Jahresangabe suchen
05.12.2007 14:36:00
edie
Hallo Zusammen,
in der Spalte B wird das gleiche Datum aus der Zelle AI3 im
Format (TT.MM.JJ) gesucht.
Dabei kann das Jahr immer wiede unterschiedlich sein, deshalb möchte
ich gerne nur nach Tag und Monat suchen, hier der Code-Schnippsel:

Sub Beispiel()
Dim rng As Range
Application.ScreenUpdating = False
Set rng = Columns(2).Find( _
What:=Cells(3, 35), lookat:=xlWhole, LookIn:=xlFormulas)
If rng Is Nothing Then
Beep
MsgBox "Datum wurde nicht gefunden!"
Exit Sub
End If
rng.Offset(0, 3).Select
Application.ScreenUpdating = True
End Sub


Wie sucht bzw. findet man nur ein Teil vom Datum d.h. TT.MM?
Mit Lef und Len, ader wie ist die Syntax?
Kann jemand helfen?
Vielen Dank im Voraus.
Grüße

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein Datum ohne Jahresangabe suchen
05.12.2007 14:43:00
Jan
Hi,
What:=Cells(3, 35).Text & "*"
mfg Jan

Korrektur
05.12.2007 14:44:00
Jan
Hälfte vergessen:
What:=Left(Cells(3, 35).Text, 6) & "*"

AW: Korrektur
05.12.2007 15:01:00
edie
Hallo Jan,
wenn ich das so einfüge:
Set rng = Columns(2).Find( _
What:=Left(Cells(3, 35).Text, 6) & "*", lookat:=xlWhole, LookIn:=xlFormulas)
funktioniert es noch nicht. Ist es so Korrekt?
Hab Dank und viele Grüße

AW: Korrektur
05.12.2007 15:34:23
Jan
LookIn:=xlValues
mfg Jan

AW: funktioniert hundert Prozent
05.12.2007 15:47:11
edie
Hallo Jan,
tausend mal Danke.
Herzliche Grüße
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige