Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

CountIfs mit Fehler?!

Betrifft: CountIfs mit Fehler?! von: Albert
Geschrieben am: 17.10.2014 22:32:20

Guten Abend zusammen,

ich verwende diese Zeile

Sub test
ListBox2.List(ILiBo, 2) = Application.WorksheetFunction.CountIfs(Sheets("Archivliste").Range("   _
_
_
B7:B" & ALetzte), xKey, Sheets("Archivliste").Range("I7:I" & ALetzte), "<" & Date)

End Sub

um in einer Userform (direkt in einer Listbox) alle Zeilen aufzuzählen, die ein Verfallsdatum kleiner dem heutigen Datum haben.

Meine Kontrolle ergab aber ein anderes Ergebnis. Was mach ich da falsch.

Besten Dank im Voraus
Albert

  

Betrifft: AW: CountIfs mit Fehler?! von: Daniel
Geschrieben am: 17.10.2014 22:43:48

Hi

Probiere mal in der letzten Bedingung: ... & CLng(Date))

VBA definiert mittlerweile das Datum als eigenen Datentyp, in der Exceltabelle ist ein Datum aber immer noch eine einfache Ganzzahl.

Gruß Daniel


  

Betrifft: Danke Daniel von: Albert
Geschrieben am: 17.10.2014 23:03:55

Servus Daniel,

danke das war ein Punkt zur Lösung.

Es waren unter anderem auch noch Werte dabei, die kein Datum waren.

Deinen Punkt eingefügt, Werte in Datum geändert... funzelt.

Vielen herlichen Dank
Albert