Informationen und Beispiele zum Thema MsgBox | |
---|---|
![]() |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema TextBox | |
---|---|
![]() |
TextBox-Seite mit Beispielarbeitsmappe aufrufen |
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
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 SubCode Deiner Schaltfläche zuweisen - fertig.
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)
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 SubGruß von Luschi aus klein-ParisBetrifft: 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.
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 | |
7 | Tabelle2!A10 |
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)
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.
Sub Hype_aktiv() 'Variante 1 Application.Goto Range(ThisWorkbook.Sheets("Tabelle1").Range("A4").Value), True End Subhat nichts mit Hyperlink zu tun.
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)
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
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
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
Betrifft: AW: Sorry, die "0" muss eine "1" sein. owT
von: 1714155.html
Geschrieben am: 20.09.2019 18:07:37
.