gehe zu

[Django 48]

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

[EarlFred]

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.

[Ralf A]

..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...

[WillWissen]

Hi,

einfach verlinken?

[derHoepp]

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