Hallo,
Wäre super wenn jemand eine IDee hat :)
klaro, machs mit DblClick Event >>> RechtsKlick auf die Tabellenreiter >>> Code anzeigen, Tabellennamen mußt noch anpassen:
in das Modul Deiner Ranking Tabelle:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then Cancel = True: Call Application.Goto(Reference:=Tabelle2.Range("A1:J10"), Scroll:=True)
End Sub
in das Modul Deiner User Tabelle:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:J10")) Is Nothing Then _
Cancel = True: Tabelle1.Cells(2, 2).Value = Target.Value: Call Tabelle1.Activate
End Sub
Gruß,
|