Datenüberprüfung mit Formelergebnis
03.05.2021 14:02:01
Stefan
In einer Datei ermittle ich über den Saisonbeginn und das Saisonende den Saisonzeitraum für ein Kfz. Das mache ich mittels Datenüberprüfung und wenn Formel.
Entsprechendes Muster anbei. https://www.herber.de/bbs/user/145945.xlsx
Soweit so gut. Jedoch darf die Saisondauer nicht 11 sein.
Ich habe in der Datei eine Worksheet_Change Funktion, die die Eingaben etc. überwacht und Fehler bzw. fehlende Daten kenntlich macht. Da wollte ich nun auch das Ergebnis (Spalte 3 vom Muster) überwachen. Der Code ist:
If Target.Column = 3 Then 'Saisondauer
If Target.Value = "1" _
Or Target.Value = "12" Then
Application.EnableEvents = False
Target.Offset(0, -2).Interior.ColorIndex = 3 'Saisonvon
Target.Offset(0, -1).Interior.ColorIndex = 3 'Saisonbis
Application.EnableEvents = True
End If
Call Ausstieg
Exit Sub
End If
Hat hier jemand eine Idee? Oder sollte man das ganze besser anders lösen? In der Datei jedenfalls sollen Saisonanfang und Ende ausgewählt werden.