Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.06.2014 17:04:12 |
Gast95619 |
|
|
Zelle mit Namen soll Tabelle mit gleichen Namen öffnen |
13.06.2014 18:09:23 |
Gast19967 |
|
|
|
13.06.2014 18:33:37 |
Gast6998 |
|
|
|
13.06.2014 18:54:09 |
Gast30789 |
|
|
|
13.06.2014 18:35:59 |
Gast46460 |
|
|
Von:
Gast19967 |
Datum:
13.06.2014 18:09:23 |
Views:
1689 |
Rating:
|
Antwort:
|
Thema:
Zelle mit Namen soll Tabelle mit gleichen Namen öffnen |
Das klassische Klick-Ereignis (also einfacher Linksklick) gibt es nicht.
Es gibt nur:
-
ein Ereignis, das auftritt wenn sich die Zellenauswahl ändert (SelectionChange)
-
ein Ereignis, das auftritt bevor man eine Zelle doppelt anklickt (BeforeDoubleClick)
-
ein Ereignis, das auftritt bevor man eine Zelle rechtsklickt (BeforeRightClick)
Deiner Problemstellung kommt Punkt 1 oder 2 am nächsten.
Am sinnvollsten wäre jedoch ein Hyperlink. Hyperlinks reagiert auf einen einfachen Linksklick.
Diese Hyperlinks lassen sich auch automatisiert erzeugen:
(Dieses Beispiel geht davon aus, dass die Namen in der ersten Spalte des Datenbereichs stehen)
Option Explicit
Public Sub RefreshNames()
Dim rngCell As Excel.Range
With ThisWorkbook.Worksheets("Tabelle1")
For Each rngCell In .UsedRange.Columns(1).Cells
Call rngCell.Hyperlinks.Delete
If WorksheetExists(rngCell.Text, ThisWorkbook) Then
Call .Hyperlinks.Add(rngCell, "", "'" & rngCell.Text & "'!A1", _
TextToDisplay:=rngCell.Text)
End If
Next
End With
End Sub
Public Function WorksheetExists(Name As String, Optional ByVal Workbook As Excel.Workbook) As Boolean
On Error Resume Next
If Workbook Is Nothing Then Set Workbook = ActiveWorkbook
WorksheetExists = CBool(Workbook.Worksheets(Name).Index)
End Function
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.06.2014 17:04:12 |
Gast95619 |
|
|
Zelle mit Namen soll Tabelle mit gleichen Namen öffnen |
13.06.2014 18:09:23 |
Gast19967 |
|
|
|
13.06.2014 18:33:37 |
Gast6998 |
|
|
|
13.06.2014 18:54:09 |
Gast30789 |
|
|
|
13.06.2014 18:35:59 |
Gast46460 |
|
|