Zurück in Ursprungszelle springen
22.02.2006 07:59:42
Andi
gestern wurde mir an dieser Stelle bereits sehr weiter geholfen (danke an meine Namensvetter) aber eine Frage habe ich dennoch.
den folgenden Code habe ich in meiner Arbeitsmappe hinterlegt:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
For Each c In Range(Target.Address)
If c.Interior.ColorIndex <> 36 Then Sh.Range("A1").Select
Next c
End Sub
Dieser bewirkt, dass nur gelbe Zellen ausgewählt werden können - bei click auf anders formatierte Zellen ändert sich die zellposition nach "A1". Wie kann ich den Code umändern, dass nicht nach "A1" gesprungen wird, sondern in die Ursprungszelle (sprich die vorher aktive Zelle)?
Danke im voraus.
Gruß Andi
Anzeige