Registriert seit: 13.12.2017
Version(en): standard
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
26865
Nicht registrierter Gast
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.
Registriert seit: 25.11.2021
Version(en): 2019, 365
26.09.2022, 12:50
(Dieser Beitrag wurde zuletzt bearbeitet: 26.09.2022, 12:51 von 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...
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
Ciao, Ralf
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
einfach verlinken?
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 26.09.2022
Version(en): 2019
26.09.2022, 19:37
(Dieser Beitrag wurde zuletzt bearbeitet: 26.09.2022, 19:37 von 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