AW: Paste im Fenster "Suchen"
K.Rola
Hallo,
dazu ist kein copy nötig. Doppelklick auf die Zelle mit dem Suchbegriff.
Den Blattnamen musst du im Code natürlich anpassen.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, SB As Variant
If Target.Count > 1 Or Target = "" Then Exit Sub
SB = Target
On Error GoTo ENDE
Set c = Sheets("Tabelle1").Cells.Find(what:=SB, lookat:=xlWhole)
If Not c Is Nothing Then
Application.Goto Sheets("Tabelle1").Range(c.Address), True
End If
ENDE:
Cancel = True
End Sub
Gruß K.Rola