Aktion bei Klick in Zelle
04.01.2006 10:54:59
Karin
Hab ein kleines Problem.
Möchte bei Klick in eine Zelle in ein anderes Tabellenblatt springen.
hab ja auch schon den code dafür nur befindet sich ein ähnlicher Code schon darüber und ich erhalte ein Fehlermeldung, quasi, dass Worksheet_SelectionChange schon vorhanden ist.
Wie kann ich das vermeiden?
Bin dankbar für jeden Hinweis!
Karin
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo errorhandler
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 85
Exit Sub
errorhandler:
ActiveWindow.Zoom = 40
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$D$12" Then Sheets("Planungsskizze").Activate
End Sub