ich habe in einer Datei eine eigene Funktion um ein Datum zu überprüfen (siehe unten).
Die Funktion liefert auch das gewünschte Ergebnis. Jedoch wird der Wert der Funktion
nicht aktualisiert. In den Optionen habe ich automatische Berechnung aktiviert. Wenn ich
F9 drücke passiert auch nichts. Die Zelle in der die Funktion steht wird nur berechnet, wenn
ich die Formel ("=TERMIN(A1)") markiere und ENTER drücke.
Was habe ich falsch gemacht?
Function Termin(DatumT As String) As String 'prüft ob Datum ein Termin ist, wenn ja gebe mir die Terminbeschreibung zurück Dim i As Byte For i = 3 To 252 If Sheets("Termine").Cells(i, 5) = DatumT Then Termin = Sheets("Termine").Cells(i, 6): Exit _ _ Function Next i End Function
Gruß
Dieterlem