Link automatisch öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
und wenn ich deine Antwort richtig verstehe, hast du meine Idee nicht verstanden :-)
im Link https://www.herber.de/forum/archiv/464to468/467432_VBA_String_aus_Hyperlink_auslesen.html
wird beschrieben, wie man den Hyperlink (Internetadresse) aus einer beliebigen Excel-Zelle auslesen kann.
Als Beispiel wird die Zelle B4 genannt.
Anstelle B4 wäre das für dich umgestellt = die Zelle "Tabelle 1 C9"
Sowohl für B4 als auch "Tabelle 1 C9" ist egal, welcher Hyperlink da drin steht - denn dieser wird aus der Methode .Hyperlinks(1).Address ausgelesen.
Jetzt war noch "spannend", ob und wie man diese ausgelesene, variable Adresse ohne weiteres (Klick)Zutun in einem Web-Browser aufrufen kann.
Und dafür hab ich dann den anderen Link gefunden: https://www.herber.de/forum/archiv/408to412/410272_Mit_VBA_eine_Website_URL_oeffnen.html
Und anstelle von (fest vorgebene Inet-Adresse)...


wshshell.Run "www.herber.de/"

...für deine Zwecke angepasst, hätte der Aufruf lauten könnten


wshshell.Run Sheets("Tabelle 1").Range("C9").Hyperlinks(1).Address

.
.
.
Aber Aber!!! Hyperlink? Webbrowser?!! Ich will doch eine .lnk-Datei öffnen!!!
Kann es sein, dass dir diese Wörter die ganze Zeit durch den Kopf gehen? :-)
Ok, dann sollten wir vielleicht über Begrifflichkeiten kommunizieren :-)
Als ich in deiner ersten Anfrage das Wort "Link" las, dachte ich sofort/und auch an nix anderes, als an Hyperlinks, oder eben Internetadressen, die man in Firefox, Chrome, etc aufruft.
Als ich aber nun in deiner Antwort an mich die Dateierweiterung ".lnk" las, dachte ich "Ohhhhh! DAS kenn zumindest ich in der Windows-Welt als Datei-Verknüpfung.
Die Bezeichnung "Link" für lnk-Dateien mag zwar durchaus hier und da und dort Verwendung finden, ist bzw war aber mir bis heute als solches nicht bekannt :-)
Nun denn, unabhängig davon...wenn du in meinem 2. Link weiterliest, weist auch der dortige Beitragsersteller darauf hin, dass er keine Internetadressen, sondern lokal gespeicherte Dateien öffnen will.
Ja, ich weiß, er möchte HTM-Dateien im Webbrowser öffnen, und deine lnk-Dateien sind nicht lokal sondern im NAS gespeichert.
Aber :-) - der Befehl lautet ja nur wshshell.RUN "pfad/Datei"
Vielleicht ist dem Run-Befehl "egal", welche Datei er starten soll, weil einfach das richtige Programm mit startet.
So, und egal ob lokal oder NAS, wenn du eine Nertzwerkfreigabe eingerichtet hast, dann beginnt auch diese mit "LW:\..."
(LW = Laufwerksbuchstabe für den NAS-Pfad)
So, jetzt bist wieder - du - dran! :-)
Ciao
Thorsten

Hallo Thorsten,
vielen Dank für Deine umfassende und gute Erläuterung.
Ich werde mich wohl dennoch dem Häckeln widmen müssen. :(
In deiner Testdatei funktioniert natürlich, wie erwartet, alles spitzenmäßig.
In meiner Datei natürlich nicht. :D
Kann es vlt. wieder daran liegen, dass sich der Link dynamisch berechnet und erst dann "erscheint"?
Ich glaube es handelt sich um das gleiche Phänomen, wie "damals" mit der Formel worksheet.change, welche nur funktioniert, wenn etwas manuell eingetragen wird.
Wenn der Link erscheint, öffnet er sich bei mir leider nicht automatisch.
Wenn ich anschließend in die Zelle klicke um den Link manuell zu betätigen, meldet sich der Debugger...
"Lauzeitfehler 9"
Index außerhalb des gültigen Bereichs
Code in Tabelle "Dashboard"


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$9" Then
link
End If
End Sub

Modul "Link"


Option Explicit
Sub link()
Dim wshshell As Object
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run Chr(34) & Sheets("Dashboard").Range("C9").Hyperlinks(1).Address & Chr(34)
End Sub

Mein Hauptmakro, habe ich jetzt unverändert gelassen, das ist doch richtig, oder?


Sub StartMakro()
Dim dblPruefung As Double
Neustart:
dblPruefung = WorksheetFunction.Sum(Range("C10:H10"))
Datenactual
PivotRefresh
If WorksheetFunction.Sum(Range("C10:H10"))

Es ist echt zum verzweifeln. :D
Vlt. findet sich ja noch eine Lösung.
Vielen Dank
VG
Max

Sub StartMakro() On Error GoTo Fehlerbehandlung Dim dblPruefung As Double Neustart: dblPruefung = WorksheetFunction.Sum(Range("C10:H10")) Datenactual PivotRefresh If WorksheetFunction.Sum(Range("C10:H10"))

Sub HperlinkformelInHyperlink() Dim fc As Range, addr, tmp For Each fc In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) If InStr(fc.Formula, "=HYPERLINK(") > 0 Then tmp = Split(fc.Formula, ",") 'trennen adresse und fr. name addr = Split(tmp(0), """")(1) If Dir(addr) "" Then fc.ClearContents ActiveSheet.Hyperlinks.Add Anchor:=fc, Address:=addr, _ TextToDisplay:=Dir(addr) Else MsgBox "Hyperlinkpfad in " & fc.Address & " stimmt nicht." End If addr = "" End If Next End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Link automatisch öffnen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread