Fehler: ERwartet Listentrennzeichen
11.08.2007 12:03:53
Born
ich komme nicht dahinter, warum vba hier eine Fehlermeldung: "Erwarte Listentrennzeichen"
ausgibt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Address = "$AC$22" Then
If Application.WorksheetFunction.Min(Range("U2:U500") = 1 _
And Application.WorksheetFunction.Max (Range("U2:U500")= 3 Then
Cells(Target.Value + 1, 22) = 1
End If
End If
End Sub
Beim Debuggen kommt Fehlermeldung: Syntaxfehler
Woran könnte das liegen?
Danke,
Born