|
Hallo,
warum als Variant: Die normale Inputbox liefert Text zurück, auch wenn du eine Zahl eingibst. Ich hätte zwar auch eine Inputbox nehmen können in der nur die Eingabe von Zahlen zulässig ist, bin aber lieber auf die normale Inputbox gegangen, wegen der Prüfung ob die eingegebenen Werte stimmen. In eine Variant Variable passt halt alles.
warum varMonatvon: das mache ich nur wegen der Lesbarkeit des Codes. So sehe ich gleich um war für einen Variablentyp es sich handelt.
Und nun zu deinem Typenkonflikt. In deiner Beschreibung steht, dass deine Datumswerte in der Zeile 3 sind, ab Spalte C. In deiner Testdatei sind die Datumswerte aber in Zeile 2 und nicht in Zeile 3.
Ändere mal die Codezeile:
If Month(.Cells(3, i)) < CLng(varMonatvon) Or Month(.Cells(3, i)) > CLng(varMonatbis) Then
in
If Month(.Cells(2, i)) < CLng(varMonatvon) Or Month(.Cells(2, i)) > CLng(varMonatbis) Then
Gruß Werner
|