Hallo Forum
ich hab mal wieder ein Problem mit der VBA Syntax!

Für ein Datumsfeld habe ich eine Prüfprozedur erstellt, funktioniert alles prima!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B9:B223")) Is Nothing Then
    Select Case Target.Offset(0, 0)
    Case Is < [variable_B2]
               [Target.Offset(0, 0)].Select
             MsgBox "Ungültiges Datum > " & Target.Offset(0, 0) & " <", vbRetryCancel +  vbDefaultButton1, "Achtung!"
    Case Else
    End Select
End If
End Sub

Der Zellcursor soll im Falle eines Fehlers auf dem fehlerhaften Datumsfeld verbleiben, tut er aber nicht!
Stattdessen bekomme ich >Laufzeitfehler '424': Objekt erforderlich< angezeigt und der Debugger weist auf die Zeile

[Target.Offset(0, 0)].Select

, warum?


Gruss daniel