Target-Variable in Worksheet-Ereignisprozedur
14.09.2005 01:52:49
Lian
Ich habe folgende zusammengestrickte Beispiel-Prozedur, die unter Umständen zu zeitig abbricht und deshalb gar nicht den zweiten Part überprüft.
--------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 1 Then Exit Sub
If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub
Cells(Target.Row, 1).Value = Now()
Dim xyz As Range
Set xyz = Worksheets("Tab1").Range("Y2:Y34").Find(Target.Value, LookIn:=xlValues)
If xyz Is Nothing Then Exit Sub
Target.Value = Worksheets("Tab1").Cells(xyz.Row, 2).Value
End Sub
--------------------------------------------------------------------------
...Aus jenem Grunde wollte ich die beiden Parts in zwei getrennte PrivateSubs packen um nach Abbruch der einen PrivateSub zur nächsten zu kehren...
--------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Part1
Part2
End Sub
Private Sub Part1
If Target.Row <= 1 Then Exit Sub
If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub
Cells(Target.Row, 1).Value = Now()
End Sub
Private Sub Part2
Dim xyz As Range
Set xyz = Worksheets("Tab1").Range("Y2:Y34").Find(Target.Value, LookIn:=xlValues)
If xyz Is Nothing Then Exit Sub
Target.Value = Worksheets("Tab1").Cells(xyz.Row, 2).Value
End Sub
--------------------------------------------------------------------------
...Warum funktioniert dies nicht? Mangelt es an dem richtigen Übergabewert? Wo liegt mein Fehler? Ich danke im Voraus für die Unterstützung!