Bereich überwachen funktioniert nicht

17/06/2010 - 13:33 von hotzi | Report spam
Hallo zusammen

mit folgendem Code will ich sicherstellen, dass von A15:A1000
Zellenànderungen dann widerrufen werden, wenn die Eintràge mit "S "
bzw. "E " beginnen. Die Überwachung bzw. der Aufruf von SubUnDo hat
nicht hin.

Set KonBerSpA = Range("A15:A1000")
If Not Intersect(Target, KonBerSpA) Is Nothing Then
If Left(Range(Target.Address), 2) = "S " Or _
Left(Range(Target.Address), 2) = "E " Then
MsgBox "Verfahrensbzeichnung aus den Stammdaten können nicht
geàndert werden!", 0, sEFehler
SubUnDo
End If
End If 'Ende Kontrolle Sp A

freue mich auf eine Antwort.

Klaus
 

Lesen sie die antworten

#1 Claus Busch
17/06/2010 - 14:17 | Warnen spam
Hallo Klaus

probiers mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KonBerSpA As Range

Set KonBerSpA = Range("A15:A1000")
If Intersect(Target, KonBerSpA) Is Nothing _
Then Exit Sub

If Left(Target.Value, 2) = "S " Or _
Left(Target.Value, 2) = "E " Then
MsgBox "Verfahrensbzeichnung aus den Stammdaten" _
& " können nicht geàndert werden!"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen