Abrufen Criteria1 Werte von gefilterten Daten basierend auf Datum

Question

ich ein Arbeitsblatt gefiltert haben, basierend auf verschiedenen Kriterien, von denen einer auf Datum basiert (I die Daten beispielsweise im Jahr 2018 wollen)

ich verschiedene Routinen gefunden haben, wie die folgenden:

http://www.vbaexpress.com/forum/archive/index.php/t-7564.html

Wenn jedoch geht die Schleife auf die Spalte mit den Datumskriterien, die Code stürzt auf der folgenden Zeile:

sMsg = sMsg & vbCrLf & sField & oFlt.Criteria1 

Haben Sie eine Idee, wie ich die Kriterien basierend auf einem Datum abrufen kann?

Grüße

Thanasis

Answer 1

Versuchen Sie, diese vor der Zeile mit dem Fehler hinzuzufügen:

MsgBox CDate(oFlt.Criteria1) 
sMsg = sMsg & vbCrLf & sField & oFlt.Criteria1 

Dann versuchen Sie es zu arbeiten, bis es Ihnen gelingt, sie erhalten durch. Wahrscheinlich kann die Criteria1 nicht als Datum oder ähnliches konvertiert werden.