Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellsprung per Doppelklick

Zellsprung per Doppelklick
25.01.2017 15:49:33
Kube
Hallo,
Habe eine Tabelle Übersicht und 24 Tabelle mit Daten in der Mappe.
In der Übersicht sehe ich die Berechneten Zellen so:
='06-2016'!K1841-'06-2016'!L1841. Gibt es eine Möglichkeit das durch doppelklick in die Herkunfttabelle gesprungen wird?
Danke für die Hilfe
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellsprung per Doppelklick
25.01.2017 16:28:51
Mullit
Hallo,
ja, gibt es:
' ********************************************************************** 
' Modul: Tabelle Übersicht Typ: Klassenmodul des Tabellenblattes 
' ********************************************************************** 

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngPos As Long
If Not Intersect(Target, UsedRange) Is Nothing Then '// u.U. Bereich anpassen.... 
  Cancel = True
  With Target
      lngPos = InStr(1, .Formula, "'", vbTextCompare)
      Call ThisWorkbook.Worksheets( _
        Mid$(String:=.Formula, Start:=lngPos + 1, _
        Length:=InStr(lngPos + 1, _
        .Formula, "'", vbTextCompare) - (lngPos + 1))).Activate
  End With
End If
End Sub


VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 14

Gruß, Mullit
Anzeige
AW: Zellsprung per Doppelklick
25.01.2017 16:38:41
ChrisL
Hi
Hier noch eine Variante
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ar As Variant
On Error Resume Next
ar = Split(CStr(Target.Formula), "'")
Worksheets(ar(1)).Select
End Sub

cu
Chris
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige