selection_change - changing stoppen
13.02.2004 11:37:42
soendi
hab mir selbst einen bock geschossen, indem ich bei selection change nach einem wert suche... angenommen, ich klicke auf einen verweis (in der zelle steht A) sucht excel nach A und macht einen selection_change (ist ja logisch). doch in der zelle, die excel finden muss/soll steht auch A drin, also fängt die suche von vorne an. wie kann ich das unterbinden?
gruss
soendi
..................
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If IsNumeric(ActiveCell.Value) Then GoTo Zahl Else GoTo Text
Zahl:
If ActiveCell.Value > 8 Or ActiveCell.Value < 1 Then Exit Sub
Var = ActiveCell.Value
Sheets("Zone" & Var).Select
GoTo Ende
Text:
Var = ActiveCell.Value
Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
Ende:
End Sub