Datum suchen

28/12/2008 - 18:34 von Remi Noel | Report spam
Hallo

Excel 2002
In A1 steht immer das aktuelle Datum.
In Spalte B sind diverse Datum für das jeweils aktuelle Jahr vorhanden.

Wie (VBA) finde ich in B das aktuelle Datum und wenn dieses nicht vorhanden
ist
das spàteste Datum mit dem aktuellen Monat/Jahr ?

Beispiel: aktuelles Datum 15.06.2008
Spalte B steht 12.06.2008, 21.06.2008, 28.06.2008, 03.07.2008 usw.

28.06.2008 soll gefunden werden..

Danke

Remi
 

Lesen sie die antworten

#1 Melanie Breden
28/12/2008 - 18:59 | Warnen spam
Hallo Remi,

"Remi Noel" schrieb:
In A1 steht immer das aktuelle Datum.
In Spalte B sind diverse Datum für das jeweils aktuelle Jahr vorhanden.

Wie (VBA) finde ich in B das aktuelle Datum und wenn dieses nicht vorhanden ist
das spàteste Datum mit dem aktuellen Monat/Jahr ?

Beispiel: aktuelles Datum 15.06.2008
Spalte B steht 12.06.2008, 21.06.2008, 28.06.2008, 03.07.2008 usw.

28.06.2008 soll gefunden werden..



vielleicht hilft dir folgender Ansatz:

Public Sub FindDate()
Dim datFind As Date
Dim rngFind As Range

datFind = Range("A1").Value
Set rngFind = Columns("B").Find(datFind)

' Wenn Suchdatum nicht gefunden wurde
If rngFind Is Nothing Then
' Letzter Tag des Monats
datFind = DateSerial(Year(datFind), Month(datFind) + 1, 0)
' SVERWEIS liefet das letzte Datum vor dem Suchdatum
datFind = Evaluate("=VLOOKUP(" & CLng(datFind) & ",B:B,1,TRUE)")
Set rngFind = Columns("B").Find(datFind)
End If

MsgBox datFind & " ist in " & rngFind.Address(0, 0)
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ribbon-Programmierung für Office 2007 http://tinyurl.com/59awla

Ähnliche fragen