gehe zu
#1
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
Antworten Top
#2
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.
Antworten Top
#3
..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

Antworten Top
#4
Hi,

einfach verlinken?
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#5
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste