Springen zur Zelle,

[Phoeni]

Hallo,
gibt es eine Möglichkeit, wenn ich mit der Maus in z.B. in I16 klicke das dann automatisch zur Zelle  N36 gesprungen wird?
Ich will das überschreiben vermeiden jedoch gleich die dafür vorgesehene Zelle  anwählen.
Danke Gruß Phoeni

[Elex]

Hallo

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$I$16" Then Range("N36").Select
End Sub

Kannst dir auch mal Application.Goto ansehen.

Gruß Elex

[Huzzim]

1. Klicken Sie die Zelle an, in der Sie eine Sprungmöglichkeit zu einer anderen Zelle einrichten möchten.
   
2. Drücken Sie die Tastenkombination STRG + K. Mit dieser Tastenkombination rufen Sie in allen Excel-Versionen das Dialogfenster HYPERLINK auf.
   
3. Im erscheinenden Dialogfenster klicken Sie in der Liste LINK ZU auf AKTUELLES DOKUMENT.
   
4. Geben Sie in das Feld ZELLBEZUG die gewünschte Zelladresse ein.
   

[Phoeni]

Hallo, danke für deine Hilfe.
irgendetwas funktioniert da nicht. 
Könntest du mir bitte den gesamten Code senden, so dass ich den nur noch einfügen muss.
Danke

[Elex]

Hi

Das ist der ganze Code den du nur Einfügen musst. Allerdings an die richtige Stelle.

Hier kommt Code für Doppelklick hin.
https://www.youtube.com/watch?v=4FnZrCO7Pe0

Gruß Elex

[Phoeni]

Es funktioniert.
Gedacht hatte ich mir jedoch, das nur mit einem Klick in die Zelle der Corsur gleich auf N36 springt, will sagen, ohne Doppelklick,
weil der Doppelklick vergessen werden kann.
Gruß Phoeni

[Luschi]

Hallo  Phoeni,

dann nutze doch den Trick mit dem Hyperlink, da genügt ein einfacher Klick auf die Zelle.

Gruß von Luschi
aus klein-Paris

PS: und Vba-Code ist dann auch nicht erforderlich!

[Phoeni]

Hallo,
danke, funktioniert alles 
Phoeni

[Elex]

Dann so.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$16" Then
  Application.EnableEvents = False
  Range("N36").Select
  Application.EnableEvents = True
End If
End Sub