die Prüfung auf eine Ganzzahl funktioniert mit meinem Code so nicht.
Dim ungerundete_Wochen As Long
Dim Tage As Long
ungerundete_Wochen = Tage / 7
If TypeName(ungerundete_Wochen) = "Integer" Then
Exit Sub
End If
Wenn ich weiß, dass im Ergebnis 2 herauskommt und ich so codiere, klappt's. D.h. meine "ungerundete_Wochen" liefert das richtige Ergebnis.
If ungerundete_Wochen = 2 Then
Exit Sub
End If
Danke für eure Hilfe.
Gruß Karsten