AW: VBA Klick auf Zelle, Wert einfügen
01.09.2022 23:43:06
Yal
Hallo Sonny,
"Zelle daneben" ist ein "ungefähr"-Begriff. Computer kommen damit nicht zurecht. Und somit ist es in dieser Form nicht programmierbar.
Was Du aber machen kannst, ist auf der Zelle doppelklicken, wo der Artikelnummer liegt (und nicht daneben). Dann wird das Artikel auf das Zielblatt "SeiteB" gesucht und wenn dort vorhanden, dorthin gesprungen.
Dann kannst Du kopieren (strg+c, kennst Du sicher) und mit einen Sprung auf das voriges Blatt "SeiteA" (Strg+PageDown) genau zurück sein, wo Du gerade warst.
Der Suche und Absprung-Code sieht so aus. Es muss im Codepane von "SeiteA" abgelegt werden (Rechtsklick auf dem Register von "SeiteA", "Code anzeigen" anklicken).
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ziel As Range
'Const cZielBlatt = "SeiteB"
Const cZielBlatt = "Tabelle2"
If IsEmpty(Target) Then Exit Sub 'leere Zelle ignorieren, spricht ganz normal behandeln
If Not Intersect(Target, Me.Range("B:B")) Is Nothing Then 'wir nehmen, Artikelnummer sind nur in Spalte B zu haben
Set Ziel = Worksheets(cZielBlatt).Cells.Find(Target.Value)
If Not Ziel Is Nothing Then
Worksheets(cZielBlatt).Activate
Ziel.Activate
Cancel = True
End If
End If
End Sub
Ein paar Anpassungen musst Du selbstredend noch vornehmen.
VG
Yal