Supportnet / Forum / Tabellenkalkulation

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! [code]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[/code] 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 [code][Target.Offset(0, 0)].Select[/code] , warum? Gruss daniel

Hallo Daniel,

probier mal das.

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

Gruß
Rainer

Hallo Rainer,

hab's ausprobiert - ohne Erfolg. Der Zellcursor kennzeichnet die Zelle rechts neben dem fehlerhaften Datumsfeld!
Gelöst hab ich es jetzt mit einer Gültigkeitsregel.
Es würde mich für die Zukunft aber schon interessieren, wie ich den Zellcurser in einer Prozedur steuern kann?

Gruss
Daniel

• VBA und "-00"
• Syntaxfehler
• syntaxfehler
• syntaxfehler fehlender operator