Zelleneingabe soll fehlermeldung kreiren
10.10.2022 11:19:57
zouzou
ich probiere, dass wenn jemand im worksheet arbeitet und in der Spalte C und D Angaben dient die ausserhalb gewisser Vorgaben ist in der Zelle #Fehler steht. Es handelt sich bei den Zellen um angaben zu Daten. ausserdem wird die Datei immer grösser da jeder eine neue Zeile anfängt (kann also nicht mit Zeilennummern arbeiten). Jetzt kriege ich bei meinem code immer einen Fehler (Typen unverträglich Fehler 13).
Könnte mir jemand sagen was mit dem Code nicht stimmt/wie ich diesen Fehler beheben kann.
Hier mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim size As Integer
Dim i As Integer
size= WorksheetFunction.CountA(Worksheets(2). Columns(1))
i=size
If Target. CountLarge > 1 Or Target.Value = "" Then Exit Sub
If Not Intersect (Target, Range ("C:C, D:D")) Is Nothing Then
If Cells (i,3) = "" Then
ElseIf Cells (i,4) - Cells (i, 3) > 365 Then
Cells (i, 4)="#Fehler!"
ElseIf Cells (1,4) (Date + 1826) Then
Cells (i,4) = "#Fehler"
ElseIf Cells (i, 3) (Date + 1461) Then
Cells (i, 3) = "#Fehler"
End if
End if
End Sub
Danke im voraus für eure Antworten