Suche in Substring von Datumsangaben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub teste_mal() Dim Zelle As Range, zeile As Long Dim monat as string monat= "08" Set Zelle = Columns("B:B").Find(What:=monat, LookIn:=xlValues, _ lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Row If Zelle Is Nothing Then MsgBox "nix" Else zeile = Zelle.Row MsgBox zeile End If End Sub

Hi
ein Datum ist für Excel eine fortlaufende Zahl, die Zählung beginnt mit 1 am 1.1.1900 und wird dann jeden Tag um 1 hochgezählt (dh heute haben wir irgendwas mit 42.000)
Da ist es natürlich schwer, mit normalen Text-Suchmethoden den Monat zu finden.
Wenn deine Liste aufsteigend sortiert ist, könntest du Worksheetfunction.Match verwenden:

Zeile = Worksheetfunction.Match(CLng(CDate("31.07.2017")), Columns(2), 1) + 1

wenns nur ums Ausblenden geht, könntest du auch den Autofilter verwenden.
Der Autofilter braucht aber das Datum in Amerikanischer Schreibweise, um es korrekt auflösen zu können.

... Criteria1:=">=08/01/2017" ...

Wenn du mit deiner Methode arbeiten wollest, müsstest du eine Hilfsspalte einfügen, in welcher _ du das Datum aus Spalte B in einen Text wandelst, hierzu könntest du die Formel:


=Text(B1;"TT.MM.JJJJ")

verwenden.
in dieser Spalte kannst du dann deine Suchmethode anwenden, weil dort das Datum ein echter Text ist und keine umformatierte Zahl.
Gruß Daniel

Hi
das Suchen mit .Find in Datumswerten ist sehr tricky.
in VBA muss dann bei der Suche das Datum im amerikanischen Format angegeben werden, dh mit "/" als Trennzeichen.
Im Standard-Datumsformat ist zu beachten, dass der Monat an erster Stelle steht (das Standardformat ist das, welches in der Formatliste mit * gekennzeichnet ist)
In speziellen Datumsformaten ist die Reihenfolge von Tag/Monat/Jahr wie vom Format vorgegeben.
es gibt also einiges zu beachten und der Code ist ggf an die vom Anwender eingestellte Formatierung anzupassen.
Formatunanbhängig wäre die schon vorgestellte Suche mit .Match, welche aber eine Sortierung erfordert.
eine alternative Methode wäre eine selbst programmierte Suchschleife:

dim Zelle as Range
for each Zelle in Range("B:B").SpecialCells(xlcelltypeconstants, 1)
if Month(Zelle.Value) = 8 Then
i = Zelle.Row
Exit for
end if
next

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Suche in Substring von Datumsangaben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche in Substring von Datumsangaben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread