Hallo
weis gar nicht, ob das geht
Meine Frage:
in A1 steht XXX
nun will ich zu der nächsten Zelle springen, vielleicht mit Doppelklick, in der ebenfalls XXX steht
Ich finde keine Frage in deiner Anfrage... Ich antworte mal so:
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rFound As Range
Set rFound = Cells.Find(what:=Target.Value, after:=Target, LookIn:=xlValues, lookAt:=xlWhole, searchdirection:=xlNext, searchorder:=xlByColumns)
If Not rFound Is Nothing Then
Application.Goto rFound
End If
End Sub
Code muss in das Codemodul des Tabellenblattes, in dem du "springen" willst.
..oder: Strg + F, Suchbegriff eingeben, Einstellungen anpassen, auf "Alle suchen" klicken und in der Ergebnisansicht kannst Du von einer Fundstelle zur anderen durch einfaches anklicken wechseln...
Hallo und Moin,
ohne VBA mit einer Formel in einer Hilfsspalte funktioniert es so (Angenommen, die Daten stehen in den Zellen A2 bis A10):
Code:
=HYPERLINK("#"&ADRESSE(ZEILE(A2)+VERGLEICH(A2;$A3:$A$10;0);1))
Viele Grüße
derHöpp