Servus alle,
ich habe ein kleines Problem. Ich habe einen VBA Code der in einer DAtei funktioniert 1 zu 1 in eine andere Datei kopiert und erhalte jetzt immer die Fehlermeldung "Fehler beim kompilieren - Funktion oder Variable erwartet"
Leider kann ich überhaupt nicht nachvollziehen wieso ich diese Meldung erhalte. Woran kann das denn liegen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z, s, dat
z = Target.Row
s = Target.Column
If z 2 Or s 2 Then Exit Sub
dat = Cells(z, s)
If Not IsDate(dat) Or dat > Now Or (Now - dat) > 365 Then
MsgBox "Kein gültiges Datum!"
Application.EnableEvents = False
Cells(z, s) = ""
Application.EnableEvents = True
Exit Sub
End If
End Sub