Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler: ERwartet Listentrennzeichen

Fehler: ERwartet Listentrennzeichen
11.08.2007 12:03:53
Born
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler: ERwartet Listentrennzeichen
11.08.2007 12:10:00
Harry
Hallo,
weil du mehr Klammern öffnest als schließt.
versuch mal

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


Gruß
Harry

AW: Fehler: ERwartet Listentrennzeichen
11.08.2007 12:50:00
Born
So simpel und so blöde.
Danke,
Born
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge