Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: StefKe am März 14, 2018, 15:36:55 Nachmittag

Titel: Office 2016 Datum in Spalte suchen und Zeilennummer ausgeben
Beitrag von: StefKe am März 14, 2018, 15:36:55 Nachmittag

Hallochen allerseits, ich habe wiedermla Tomaten auf den Augen und kann den Fehler nicht finden:

Code: [Auswählen]

Sub ZeileFinden()
Dim Datum, Zeile, wksKalender
Set wksKalender = Worksheets(1)
Datum = DateSerial(2018, 5, 1)
Zeile = Application.WorksheetFunction.Match(Datum, wksKalender.Range("B3:B160"), 0)
End Sub

Sub ZeileFinden1()
Dim Datum, Zeile, wksKalender
Set wksKalender = Worksheets(1)
Datum = DateSerial(2018, 5, 1)
  Zeile = wksKalender.Columns("B3:B160").Find(What:=Datum, After:=ActiveCell, LookIn:=xlValues, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Row
End Sub

Kann bitte wer helfen, wo liegt der Fehler?

Danke
Stefan

Titel: Antw:Office 2016 Datum in Spalte suchen und Zeilennummer ausgeben
Beitrag von: StefKe am März 14, 2018, 18:46:05 Nachmittag

Ich habe mal ne Beispieldatei angehängt...
Hab grad gefunden das die unterschiedliche Formatierung das Problem ist. In Spalte A: d-mmm
und DateSerial: m/d/yyyy.


Danke