Hyperlinks im neuen fenster öffen!
Hallo,
vieleicht hat ja jemand einen Tip für mich.
Hab mir in Excel eine Dokumentenverwaltung gezimmert, was heißt:
Excel liest mir alle Dateien eines bestimmten Ordners ein und generiert mir eine Liste der vorhandenen Dateien die mit Hyperlink unterlegt sind.
Funktioniert auch prächtig ! nur möchte ich wenn ich eben einen dieser Hyperlinks "XLS" Dateien, das diese im neuen Fenster geöffnet werden !
So wie wenn ich den Hyperlink mit der rechten Maustaste auswähle und dann eben Hyperlink in neuem Fenster öffnen wähle.
Hat da jemand einen Tip was ich bda beim VBA Code ergänzen muss?
Gruss Volker
Antwort schreiben
Antwort 1 von coros vom 27.10.2020, 11:59 Options
Hallo Volker,
das geht nicht mit dem Hyperlink. Da musst Du Dir selber etwas basteln.
Nachfolgendes Makro öffnet Dir eine Exceldatei in einer neuen Excelinstanz. Du musst nur noch bei einem entsprechenden Ereignis das Makro ansoßen lassen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.Option Explicit
Sub Exceldatei_in_neuer_Instanz_oeffnen()
Dim objExcel As Object
Dim strPath As String
Dim strDatName As String
strPath = "H:\Müll\"
strDatName = "Beispiel.xls"
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
On Error Resume Next
objExcel.Workbooks.Open strPath & strDatName
If Err Then objExcel.Quit
Set objExcel = Nothing
End Sub
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von nighty vom 27.10.2020, 12:10 Options
hi all :-)
mit raise koennte man gezielt auf die fehlernummer reagieren ohne on error resume next
gruss nighty