change-ereignis target soll auf bestimmte werte reagieren

08/07/2010 - 15:12 von hotzi | Report spam
hallo zusammen,

ànderungen im zellbereich A15:A1000 soll so überwacht werden, dass
vorhandene zelleingaben, die mit "Soll" bzw. "Ist" beginnen
unterbunden werden. passt das so?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A15:A1000")) Is Nothing Then


'überprüft, ob Soll oder Ist drin steht
On Error Resume Next
If Left(Target.Value, 4) <> "Soll " Or Left(Target.Value, 4) <>
"Ist " Then


'ruft das Rückgàngig Makro auf
SubUnDo

End If
end sub

freue mich auf eine antwort klaus
 

Lesen sie die antworten

#1 Claus Busch
08/07/2010 - 18:55 | Warnen spam
Hallo Klaus,

Am Thu, 8 Jul 2010 06:12:08 -0700 (PDT) schrieb hotzi:

ànderungen im zellbereich A15:A1000 soll so überwacht werden, dass
vorhandene zelleingaben, die mit "Soll" bzw. "Ist" beginnen
unterbunden werden. passt das so?



falls die beiden Strings immer am Anfang stehen und auch Groß- und
Kleinschreibung berücksichtigt werden sollte, probiere es mal so:
If LCase(Target) Like "soll*" Or _
LCase(Target) Like "ist*" Then
SubUnDo
End If


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

Ähnliche fragen