Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Hyperlink per Code aktivieren, gibt Fehlerhinweis

Bild


Betrifft: Hyperlink per Code aktivieren, gibt Fehlerhinweis
von: Dieter(Drummer)

Geschrieben am: 20.09.2019 17:03:50
Guten Tag Spezislisten/innen.
Mein Code in Modul1 gibt einen Fehlerhinweis: "Die angegegebene Datei konnte nicht geöffnet werden.".
Der Hyperlink in Tabelle1, in Zelle A4, mit Klick auf Hyperlink, funktioniert und geht in Tabelle2, selbe Datei, in A4.
Anbei meine Musterdatei: https://www.herber.de/bbs/user/132136.xlsm
Mit der Bitte um Hilfe,
grüßt, Dieter(Drummer)
Wo ist da der Fehler im Code:
'Hyperlink in definierter Zelle wird aktiviert und ausgeführt 

Sub Hype_aktiv() 'Variante 1
ThisWorkbook.FollowHyperlink (ThisWorkbook.Sheets("Tabelle1").Range("A4").Value)
End Sub

Bild

Betrifft: warum denn Hyperlink per Code ?
von: 1714145.html
Geschrieben am: 20.09.2019 17:20:09
Hallo Dieter
Warum machst Du solche "Verrenkungen"? ;-)

Sub GeheZuTab2A4()
Application.Goto Sheets("Tabelle2").Range("A4")
End Sub
Code Deiner Schaltfläche zuweisen - fertig.
Gruß Matthias
Bild

Betrifft: AW: Danke Matthias, das es so, wie Du ...
von: 1714146.html
Geschrieben am: 20.09.2019 17:26:09
Hallo Matthias,
... geschrieben hast geht, ist mir bekannt.
Mich interessiert eben, warum mein Code nicht funktioniert und wie er richtig wäre.
Gruß, Dieter(Drummer)

Bild

Betrifft: AW: Danke Matthias, das es so, wie Du ...
von: 1714148.html
Geschrieben am: 20.09.2019 17:31:17
Hallo Dieter,
oder so: 


Sub Hype_aktiv() 'Variante 1
Application.Goto Range(ThisWorkbook.Sheets("Tabelle1").Range("A4").Value), True
End Sub


Gruß von Luschi
aus klein-Paris

Bild




Betrifft: AW: Danke Luschi. geht perfekt und ...



von: 1714150.html


Geschrieben am: 20.09.2019 17:39:23


Hallo Luschi,

... wieder etwas gelernt ;-).

Gruß, Dieter(Drummer) und ein schönes Wochenende.



Bild




Betrifft: was hat das denn mit Hyperlink zu tun?



von: 1714153.html













Geschrieben am: 20.09.2019 18:01:32


Luschi benutzt genau wie mein Vorschlag Application.Goto

Genauso gut kann ich in Zelle A7 den Text schreiben


Tabelle1

 
 A
7Tabelle2!A10
 

Excel Tabellen im Web darstellen >>  Excel Jeanie HTML 4.8 

Application.Goto Range(ThisWorkbook.Sheets("Tabelle1").Range("A7").Value), True


das , True ist eh optional (also nur bei Bedarf)

und macht ganau das gleiche was ich auch vorgeschlagen hatte. Ob ich das aus einer Zelle


ohne Hyperlink hole oder aus einer Zelle mit Hyperlink ist doch egal.

Umso weniger kann ich nachvollziehen das Du bei meinem Vorschlag schreibst, das Du das kennst


und bei Luschi schreibst Du "wieder was gelernt".

Für mich ist das nicht nachvollziehbar.


Mit Hyperlink hat das nichts zu tun, sondern nur mit der Übergabe einer gültigen Zelladresse!

Gruß Matthias



Bild




Betrifft: AW: was hat das denn mit Hyperlink zu tun?



von: 1714158.html













Geschrieben am: 20.09.2019 18:34:10


Hallo Matthias,

mir ging es lediglich um einen Code, der den Hyperlink aktiviert und entsprechend ihn auch ausführt. Es führen ja oft mehrere Wege zu einem Ziel ...


Das es auch anders, ohne Hyperlink, auch geht, war mir bekannt.

Ich habe und hatte keine Absicht, Deine Anwort nicht auch als positiven Hinweis anzusehen.

Gruß und ein schönes Wochendende,


Dieter(Drummer)  



Bild




Betrifft: Du hast mich falsch verstanden ...



von: 1714162.html













Geschrieben am: 20.09.2019 19:21:17


Hallo

Ich habe und hatte keine Absicht, Deine Anwort nicht auch als positiven Hinweis anzusehen.


Das weiß ich und darum gehts mir doch gar nicht.






Luschis ähnlicher Vorschlag: (das ist kein Kritik an Luschi!)




Sub Hype_aktiv() 'Variante 1
Application.Goto Range(ThisWorkbook.Sheets("Tabelle1").Range("A4").Value), True
End Sub


hat nichts mit Hyperlink zu tun.


Das hatte ich Dir in meinem letzten Beitrag mitgeteilt.


Nur darum ging es mir.

auch Dir ein schönes Wochendende,


Gruß Matthias



Bild




Betrifft: AW: Gebe Dir Recht Matthias ...



von: 1714181.html


Geschrieben am: 21.09.2019 08:43:42


Hallo Mattias,

.... dennoch löst der Code von Luschi, den Hyperlink aus. Ob es einen Code gibt, der den Hyperlink auslöst und auch mit "Hyperlink zu tun" hat, ist mir nicht bekannt.

Gruß, Dieter(Drummer)



Bild




Betrifft: Du irrst immer noch, Dieter ...



von: 1714191.html


Geschrieben am: 21.09.2019 10:20:20


Hallo

Zitat


.... dennoch löst der Code von Luschi, den Hyperlink aus

Nochmal:


NEIN, das macht er nicht!

Gruß Matthias



Bild




Betrifft: AW: Du irrst immer noch, Dieter ...



von: 1714199.html













Geschrieben am: 21.09.2019 12:49:38


Hallo Matthias,


nun kann ich es wohl erkennen, wenn in der Zelle kein Hypelink steht, dass mit: 

Application.Goto Range(ThisWorkbook.Sheets("Tabelle1").Range("A4").Value), True




der Inhalt der Zelle (A4): "Tabelle2!A4", angesprochen und ausgeführt wird.


Danke für Deine unermüdliche Angabe.


Mit ist jetzt klar, dass es zwei unterschiedliche Varianten sind, die aber zum selben Ziel führen und man nur den Hyperlink braucht.


Ursächlich hatte ich daran gedacht, per Makro den Hyperlink (nun natürlich auch die Angabe im der Zelle) ausführen zu lassen. Den Code hätte ich dann wohl aus einer anderen Mappe ausgeführt. Dies ist aber jetzt nicht mehr mein Ziel.


Danke nochmal und Gruß, Dieter(Drummer) 



Bild




Betrifft: AW: Mit Hyperlinkprüfunng, die prima funktioniert



von: 1714154.html













Geschrieben am: 20.09.2019 18:04:50


Hallo Luschi,

falls Interesse da ist, habe ich noch eine Hyperlinksprüfung, in Verbindung mit Deinem Code Hinweis erstellt. Dieser funktioniert. Evtl. gibt es ja noch andere Interessenten ...

Danke nochmal und Gruß, Dieter(Drmmer)

'Hyperlink prüfen, wenn kein Hyper dann Ende Makro

Sub Hype2() 'Variante 2
If ActiveSheet.Cells(4, 1).Hyperlinks.Count = 0 Then
Application.Goto Range(ThisWorkbook.Sheets("Tabelle1").Range("A4").Value), True
Else
MsgBox " Kein Hyper in A4."
End If
End Sub





Bild




Betrifft: AW: Sorry, die "0" muss eine "1" sein. owT



von: 1714155.html


Geschrieben am: 20.09.2019 18:07:37


.
Excel-Beispiele zum Thema "Hyperlink per Code aktivieren, gibt Fehlerhinweis"
Hyperlink aufteilen URLs eines ausgewählten Bereiches in HyperLinks umwandeln
HTML-Datei aus gefilterten Daten mit Hyperlinks aufbauen Tabellenblatt-Hyperlink über UserForm aufrufen
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen Hyperlinks zu SVERWEIS-Bezugstabellen anlegen
Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen
Zwei Hyperlinks in einer Zelle Prüfung, ob Datei- und/oder Web-Hyperlink-Adressen existieren