Fehlerprüfung VBA
20.05.2006 19:28:22
dennis
habe mir vor ein paar tagen hilfe geholt und diesen tollen Code erhalten:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 2 And .Row > 1 And .Count = 1 And .Value <> "" Then
If .Value <> .Offset(-1, 1) Then
If MsgBox("Der eingegebene Kilometerstand ist nicht plausibel!" & Space(20) & vbLf & vbLf & _
"Wollen Sie die Eingabe trotzdem übernehmen?", 324, "Hinweis") = 7 Then
Application.Undo
.Select
End If
End If
End If
End With
End Sub
funktioniert Super bei meinem Rechner, allerdings nicht auf denen meiner Freunde zumindest bei denen die noch Excel2000 verwenden und noch nicht XP.
kann mir da jemand sagen warum oder wie ich diesen Code abwärtskompatibel machen kann ?
Vielen Dank im Vorraus
best regards
dennis