ich möchte per VBA in eine Zelle ein Hyperlink auf eine Worddatei setzten.
Das kriege ich auch hin, aber ich wie erreiche ich, das die Datei mit Word geöffnet wird. Außerdem soll Word nicht mehrfach gestartet werden.
Viele Dank schon mal.
Heidrun
ich möchte per VBA in eine Zelle ein Hyperlink auf eine Worddatei setzten.
Das kriege ich auch hin, aber ich wie erreiche ich, das die Datei mit Word geöffnet wird. Außerdem soll Word nicht mehrfach gestartet werden.
Viele Dank schon mal.
Heidrun
als Anregung folgendes Makro:
Die Datei, so sie existiert, wird in Word geöffnet. Falls Word schon läuft wird es aktiviert (Word wird nicht mehrfach gestartet!).
Steffan.
viele Dank!
So, wie Du es schreibst, klappt es nicht, aber so:
Sub testHyperlink()
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:="C:\Eigene Dateien\Dok1.doc"
End Sub
Hast mir aber sehr geholfen
Heidrun
das war wohl ein Fehler beim Kopieren:
Die Set-Zeile muss lauten:
Steffan.
noch mal vielen Dank.
Heidrun
Um einen Hyperlink auf eine Worddatei in Excel mittels VBA zu erstellen, folge diesen Schritten:
Öffne den Visual Basic-Editor: Drücke ALT + F11
, um den Editor zu starten.
Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)" und wähle Einfügen
> Modul
.
Füge den Code ein: Kopiere den folgenden VBA-Code in das Modul:
Sub testHyperlink()
Dim WordApp As Object
Dim WordDoc As String
WordDoc = "C:\Eigene Dateien\Dok1.doc"
' Überprüfen, ob Word bereits läuft
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo 0
' Wenn Word nicht läuft, starte es
If WordApp Is Nothing Then
Set WordApp = CreateObject("Word.Application")
End If
' Hyperlink zur Zelle hinzufügen
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:=WordDoc
' Word-Dokument öffnen
WordApp.Visible = True
WordApp.Documents.Open WordDoc
End Sub
Speichere und schließe den Editor: Speichere die Änderungen und schließe den Visual Basic-Editor.
Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8
, wähle testHyperlink
und klicke auf Ausführen
.
GetObject
erreicht.Anchor
-Parameter korrekt gesetzt ist und die Zielzelle existiert.Eine andere Möglichkeit, einen Hyperlink zu einer Worddatei zu erstellen, besteht darin, die Funktion HYPERLINK
in Excel zu verwenden:
=HYPERLINK("C:\Eigene Dateien\Dok1.doc", "Öffne Worddokument")
Dies ist jedoch nicht so flexibel wie die VBA-Lösung, da es nicht ermöglicht, Word nur einmal zu starten.
Hyperlink zu einer anderen Worddatei:
Ändere den Pfad im Code auf eine andere Datei:
WordDoc = "C:\Eigene Dateien\Dok2.doc"
Hyperlink in eine andere Zelle:
Ändere die Cells
-Referenz, um den Hyperlink in einer anderen Zelle zu platzieren:
ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, 1), Address:=WordDoc
1. Wie kann ich den Hyperlink auf eine andere Datei ändern?
Ändere einfach den Address
-Parameter im Code zu dem Pfad der gewünschten Datei.
2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der Code sollte in Excel-Versionen ab 2007 und höher funktionieren, solange VBA unterstützt wird.
3. Was passiert, wenn die Worddatei nicht gefunden wird? Es wird ein Fehler auftreten. Du kannst eine Fehlerbehandlung implementieren, um dies eleganter zu handhaben.
4. Kann ich mehrere Hyperlinks gleichzeitig erstellen? Ja, du kannst eine Schleife verwenden, um mehrere Hyperlinks in verschiedenen Zellen zu platzieren, indem du den Code anpasst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen