Supportnet / Forum / Tabellenkalkulation

Kann mir bitte jemand sagen wo hier der Syntax-Fehler liegt? [code]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("N9:N223")) Is Nothing Then Dim Spalte As Integer Spalte = Target.Column If Target.Value <> 4 Then Exit Sub If Target.Row, Spalte - 2 = 3 Then MsgBox "xxxFehlertextxxx" Target.Clear End If End If End Sub[/code] Was ich erreichen möchte ist, dass immer dann, wenn in einer der Zellen N9 bis N223 der Wert 4 eingegeben wird, geprüft wird, ob in der Spalte L derselben Zeile der Wert 3 steht. In diesem Fall soll eine Nachricht angezeigt werden. Beim compilieren bekomme ich einen Syntaxfehler in der Zeile [code]If Target.Row, Spalte - 2 = 3 Then[/code] angezeigt! Ist bestimmt nur eine Kleinigkeit, aber ich bekomm es einfach nicht hin! Ich bedanke mich vorab für jede Hilfe. Daniel

Hi Daniel,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("N9:N223")) Is Nothing Then
If Target <> 4 Then Exit Sub
If Target.Offset(0, -2) = 3 Then
MsgBox "xxxFehlertextxxx"
Target.Clear
End If
End If
End Sub

Bis später,
Karin

Danke für Deine Hilfe Karin, hab wieder etwas gelernt!

Gruss Daniel

• Macro-Aufruf
• Syntaxfehler im Macro
• Syntaxfehler
• VBA
• syntaxfehler