Hyperlink in VBA integrieren + Spring auf Sheet1

Hallo Forum,
ich komme leider mit einer Problemstellung nicht weiter, die für VBA-kundige wahrscheinlich ein Klacks ist.
Nachfolgendes Bild verdeutlicht mein Tabellenblatt.
Userbild

Ich möchte über die dynamische Hyperlink-Funktion, welche durch Verketten mit Hilfe einer Dropdown-Liste erzeugt wird, auf eine entsprechende Beschreibung zugreifen - das klappt alles wunderbar.
Nun möchte ich aber sicherstellen, dass eine Datei, welche ich über den entsprechenden Hyperlink in C3 öffne, immer direkt aufs Tabellenblatt 1 - unabhängig vom Namen - springt. Dies würde ich gerne, zusammen mit dem Hyperlink, über einen CommandButton steuern wollen. D.h. beim Klick auf diesen Button öffnet sich die entsprechende Datei gemäß meiner Formel in A3 und springt direkt auf Tabellenblatt 1.
Ich habe bereits recherchiert, aber nichts gefunden, was ich einfach so kopieren und minimal anpassen könnte - zu mehr reichen meine VBA-Kenntnisse leider nicht.
Im Übrigen spielt es keine Rolle, ob die Programmierung auch beim Öffnen der Arbeitsmappe, aus der die anderen Dateien per Hyperlink geöffnet werden, ebenfalls auf Tabellenblatt 1 springt. Hier muss nicht extra differenziert werden - nur das noch als Zusatzanmerkung.
Ich bedanke mich im Voraus für eure Hilfe!
Gruß,
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Chris,
... Du kannst ja dann Deinen Datei-Pfad direkt im CommandButton-Klick-Event zusammenbauen lassen und die entsprechende Mappe öffnen. Bspw:

Private Sub CommandButton1_Click()
Const TARTAB& = 1 'Ziel-Blatt der Ziel-Mappe, hier Blatt 1
Const FTYPE$ = ".xlsx" 'Dateityp der Ziel-Mappe
Dim WbQ As Workbook: Set WbQ = ThisWorkbook
Dim WbZ As Workbook, Pfad$
With Me
'Pfad aus Zell-Text A2 und B2 sowie o.a. Dateityp zusammensetzen
Pfad = .Range("A2").Text & .Range("B2").Text & FTYPE
'Mappe mit dem zusammengesetzten Pfad öffnen
Set WbZ = Workbooks.Open(Pfad)
'In der neu geöffneten Mappe das o.a. Blatt aktivieren
WbZ.Worksheets(TARTAB).Activate
End With
Set WbQ = Nothing: Set WbZ = Nothing
End Sub

Im o.a. Code kannst Du definieren welches Tabellenblatt der zu öffnenden Ziel-Mappe aktiviert werden soll (aktueller Wert = 1). Der Datei-Pfad wird zusammengesetzt aus den Texten in A2 und B2 des Tabellenblattes in dem der CommandButton liegt sowie dem gewünschten Dateityp (ebenfalls im Code definierbar, aktuell = ".xlsx"). Die entsprechende Mappe wird geöffnet und das vorgegebene Blatt aktiviert.
Einen Hyperlink brauchst Du dann nicht mehr, v.a. keinen Formel-Hyperlink!
LG
Michael

Beliebteste Forumthreads (12 Monate)

Hyperlink in VBA integrieren + Spring auf Sheet1

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlink in VBA integrieren + Spring auf Sheet1

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread