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

Forumthread: klick in zelle blatte aktivieren

klick in zelle blatte aktivieren
24.05.2014 22:08:30
Frank
Hallo und Guten Abend!
In meiner Tabelle "Namensliste" Spalte D3bis vielleicht D200 stehen die Namem der Tabellenblätter. Nun möchte ich per Klick in die Zelle zum gewählten Blatt gelangen. Wie stelle ich das an?
Danke im Voraus!
L. G. Frank H.

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: klick in zelle blatte aktivieren
24.05.2014 22:19:14
Beverly
Hi Frank,
- Möglichkeit: erstelle ein Hyperlink zur entsprechenden Tabelle
- Möglichkeit: benutzte das Selection_Change Ereignis des Tabellenblattes


AW: klick in zelle blatte aktivieren
24.05.2014 22:44:35
Frank
Hallo Karin!
Schon vorab herzlichst Danke.
Mein Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Zelle As Range
Dim RaBereich As Range
If ActiveCell = "" Then
Exit Sub
Else
Set RaBereich = Range("D3:D200")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then
Set RaBereich = Nothing
End If
End Sub
Ich weis nicht weiter!!! Bitte hilf mir! Danke!
Gruß Frank H.

Anzeige
AW: klick in zelle blatte aktivieren
24.05.2014 23:23:11
UweD
Hallo Frank
so...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range
If Target.Count  1 Then Exit Sub
Set RaBereich = Range("D3:D200")
If Not Intersect(Target, RaBereich) Is Nothing Then
If Target.Value = "" Then Exit Sub
On Error GoTo Fehler
ThisWorkbook.Sheets(Target.Value).Activate
End If
Set RaBereich = Nothing
Exit Sub
Fehler:
MsgBox "Blatt existiert nicht"
End Sub
Gruß UweD

Anzeige
AW: klick in zelle blatte aktivieren
24.05.2014 23:54:15
Frank
Hall0 Uwe!
Funzt bestens. Vielen herzlichen Dank und 'ne gute Nacht!
Gruß Frank H.

AW: klick in zelle blatte aktivieren
25.05.2014 09:31:23
Beverly
Hi Frank,
es geht auch einfacher und ohne On Error:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D3:D200")) Is Nothing Then
If Not IsError(Evaluate(Target.Cells(1) & "!A1")) Then
Application.Goto reference:=Worksheets(Target.Value).Range("A1")
Else
MsgBox "Tabelle nicht vorhanden"
End If
End If
End Sub


Anzeige
AW: klick in zelle blatte aktivieren
25.05.2014 13:06:26
Frank
Hallo Karin!
Na wunderbar funzt auch bestens!
Danke und 'nen schönen Sonntag!
L. G. frank H.
;

Forumthreads zu verwandten Themen

Anzeige
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