Datumerkennung bei VBA
05.01.2018 23:07:08
Edi
Jetzt wende ich mich hier auch mal mit einer Frage zu Wort, die mich verzweifeln lässt.
Ich schreibe an einem umfaangreichen Code, der hier den Rahmen sprengen würde.
Darin jedoch benutze ich eine do loop Schleife
Do
If Month(Cells(a, 4)) = bytMonat Then a = a + 1
Loop Until Month(Cells(a, 4)) bytMonat
wobei bytMonat eine Variable ist, die einen vorher abgefragten Monat als Zahl übergeben bekommt.
An sich funktioniert der Code soweit einwandfrei, außer, die Variable enthält eine 12 für den Dezember, denn irgendwann ist die Liste zu Ende und es folgt unter dem letzten Datum eine leere Zelle.
Ja, und nun erkennt Excel nicht, dass eine leere Zelle ungleich dem Dezember ist.
Auch ein simples
MsgBox Month(Cells(1, 1)
bringt es an den Tag.
Steht in A1 ein Datum, wird der Monat korrekt angezeigt.
Ist die Zelle leer, erhalte ich eine 12.
Was kann ich tun?
Viele Grüße
Edi