Verknüpfung auf Desktop anlegen

Forumthread: Verknüpfung auf Desktop anlegen

14.08.2014 10:18:34

Kurt

Guten Morgen,
ich möchte gern in der Workbook_Open() ein Makro
befindet, das eine Verknüpfung auf dem Desktop angelegt wird.
Sehr gut würde das die alte Verküpfung gelöscht wird, ist
wohl schwierig, weil am Ende die Versions Nr. steht.
- Rg.Vorlage Musterhalle Vers. 1.20.xls
wenn dies nicht geht ist nicht schlimm.
gruß
kurt

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verknüpfung auf Desktop anlegen

14.08.2014 10:32:34

Kurt
AW: Verknüpfung auf Desktop anlegen

16.08.2014 12:52:06

fcs
Danke Franz ! --))

16.08.2014 18:57:48

kurt

AW: Verknüpfung auf Desktop anlegen

14.08.2014 10:32:34

Kurt

Hallo zusammen,
habe gerade dieses Makro gefunden, welches auch funktioniert.


Sub ArbeitsmappeAufDesktopLegen()
Dim wsh As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wsh = CreateObject("WScript.Shell")
s_DeskTop = wsh.SpecialFolders("Desktop")
Set o_Sh = wsh.CreateShortcut(s_DeskTop & _
"\" & ThisWorkbook.Name & ".lnk")
With o_Sh
.Targetpath = ThisWorkbook.FullName
.Save
End With
Set wsh = Nothing
End Sub

Das mit dem löschen klappt aber nicht, vielleicht hat jemand eine Idee !

Sub ArbeitsmappeAufDesktopKillen()
Dim wshk As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wshk = CreateObject("WScript.Shell")
s_DeskTop = wshk.SpecialFolders("Desktop")
Kill s_DeskTop + "\t*.xls.lnk"
Set wshk = Nothing
End Sub

gruß kurt

AW: Verknüpfung auf Desktop anlegen

16.08.2014 12:52:06

fcs

Hallo Kurt,
mit "t*.xls.lnk" kannst du natürlich keine Datei löschen, deren Dateiname mit "R" beginnt.
Mit der folgenden Anpassung sollte das Löschmakro funktioieren.
Gruß
Franz

Sub ArbeitsmappeAufDesktopKillen()
Dim wshk As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wshk = CreateObject("WScript.Shell")
s_DeskTop = wshk.SpecialFolders("Desktop")
With ThisWorkbook
If Dir(s_DeskTop & "\" & Left(.Name, InStr(1, .Name, "Vers.")) & "ers.*.xls.lnk")  ""  _
Then
Kill s_DeskTop & "\" & Left(.Name, InStr(1, .Name, "Vers.")) & "ers.*.xls.lnk"
Else
MsgBox "Kein Link von Vorversion auf Desktop vorhanden"
End If
End With
Set wshk = Nothing
End Sub

Danke Franz ! --))

16.08.2014 18:57:48

kurt

Schritt-für-Schritt-Anleitung

Um eine Verknüpfung auf dem Desktop zu erstellen, kannst Du das folgende VBA-Makro verwenden. Dieses Makro erstellt eine Verknüpfung der aktuellen Excel-Arbeitsmappe auf dem Desktop.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

Füge den folgenden Code ein:

Sub ArbeitsmappeAufDesktopLegen()
   Dim wsh As Object
   Dim o_Sh As Object
   Dim s_DeskTop As String
   Set wsh = CreateObject("WScript.Shell")
   s_DeskTop = wsh.SpecialFolders("Desktop")
   Set o_Sh = wsh.CreateShortcut(s_DeskTop & "\" & ThisWorkbook.Name & ".lnk")
   With o_Sh
       .TargetPath = ThisWorkbook.FullName
       .Save
   End With
   Set wsh = Nothing
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Du kannst das Makro über Entwicklertools > Makros ausführen.

Häufige Fehler und Lösungen

Fehler 1: Verknüpfung wird nicht erstellt.
Lösung: Stelle sicher, dass Du die richtigen Berechtigungen für den Desktop hast und dass der Pfad zur Datei korrekt ist.

Fehler 2: Alte Verknüpfung wird nicht gelöscht.
Lösung: Verwende den folgenden Code, um alte Verknüpfungen zu löschen:

   Sub ArbeitsmappeAufDesktopKillen()
       Dim wshk As Object
       Dim s_DeskTop As String
       Set wshk = CreateObject("WScript.Shell")
       s_DeskTop = wshk.SpecialFolders("Desktop")
       If Dir(s_DeskTop & "\" & ThisWorkbook.Name & ".lnk") <> "" Then
           Kill s_DeskTop & "\" & ThisWorkbook.Name & ".lnk"
       End If
       Set wshk = Nothing
   End Sub

Alternative Methoden

Neben VBA kannst Du auch manuell eine Verknüpfung auf dem Desktop erstellen:

Suche die Excel-Datei im Explorer.
Klicke mit der rechten Maustaste auf die Datei.
Wähle Senden an > Desktop (Verknüpfung erstellen).

Diese Methode ist einfach, wenn Du keine VBA-Kenntnisse hast.

Praktische Beispiele

Beispiel 1: Du möchtest eine Verknüpfung zu einer Datei namens „Projektplan.xlsx“ erstellen. Stelle sicher, dass das Makro den richtigen Dateinamen verwendet.
Beispiel 2: Um eine Excel-Tabelle auf dem Desktop zu verknüpfen, kannst Du das oben genannte Makro verwenden, um den Zugriff zu erleichtern.

Tipps für Profis

Verwende die Funktion Workbook_Open, um beim Öffnen der Arbeitsmappe automatisch eine Verknüpfung zu erstellen.
Experimentiere mit dem Code, um Verknüpfungen für mehrere Dateien gleichzeitig zu erstellen.
Achte darauf, dass Du beim Erstellen von Verknüpfungen auf den Desktop die Dateinamen so wählst, dass sie keine Sonderzeichen enthalten.

FAQ: Häufige Fragen

1. Was ist eine Verknüpfung auf dem Desktop?
Eine Verknüpfung auf dem Desktop ist ein schneller Zugriffspunkt zu einer Datei oder einem Programm, der es Dir ermöglicht, schnell darauf zuzugreifen.

2. Kann ich eine Verknüpfung zu einer Excel-Datei auf dem Desktop erstellen, ohne VBA?
Ja, Du kannst eine Verknüpfung manuell erstellen, indem Du im Windows-Explorer mit der rechten Maustaste auf die Datei klickst und „Senden an“ > „Desktop (Verknüpfung erstellen)“ wählst.

3. Wie kann ich mehrere Verknüpfungen auf einmal erstellen?
Du kannst ein VBA-Skript anpassen, um mehrere Verknüpfungen in einer Schleife zu erstellen, indem Du eine Liste von Dateinamen verwendest.

Beliebteste Forumthreads (12 Monate)

Verknüpfung auf Desktop anlegen

Forumthread: Verknüpfung auf Desktop anlegen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial