Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verknüpfungsstatus mit VBA

Verknüpfungsstatus mit VBA
11.10.2007 09:37:54
Salim

Hallo zusammen,
ich würde gerne in einem workbook_open ereignis ein Überprüfung des Verknüpfungsstatus einbauen. Normalerweise ist es ja so, dass mit dem Öffnen der Datei, eine Popup window kommt, ob man die Aktualisierung vornehmen möchte. Drückt man auf ja und passt irgendwas nicht mit der Verknüpfung, kommt auch eine Meldung dass irgendwas nicht passt. Leider ist es aber so, dass ich tendenziell dann weiter arbeite und dass mit der fehlerhaften Verknüfung vergesse. Ich hätte gerne einen Code, der überprüft, ob alle Verknüpfungen, in Ordnung sind (nach der Aktualisierung) und dann in der Zelle B7 schreibt: Aktualisiert bzw. nicht aktualisiert. Ich habe mich ein wenig umgeschaut, kam aber mit linkinfo nicht weiter.
Wäre sehr dankbar für einen Tipp! Danke und Gruss
Salim

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungsstatus mit VBA
11.10.2007 19:25:00
Tino
Hallo,
versuche es hiermit, muss entsprechend nur eingebaut werden.

Sub PrüfeLinks()
On Error GoTo FehlerLink:
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Application.DisplayAlerts = True
Range("B7") = "Aktualisiert"
Exit Sub
FehlerLink:
Application.DisplayAlerts = True
Range("B7") = "nicht Aktualisiert"
End Sub


Gruß
Tino

AW: Verknüpfungsstatus mit VBA
15.10.2007 08:45:00
Salim
Herzlichen Dank!
Werde ich gleich mal ausprobieren!
Gruss
Salim

AW: Verknüpfungsstatus mit VBA
15.10.2007 16:13:40
Salim
Hallo Tino,
danke für dein Feedback! Dein Ansatz funktioniert prima solange die Quelldatei zu ist und die Quellen auch nicht geändert werden. Hast du für diesen beiden speziellen Fällen auch eine Idee?
Gruss
Salim

Anzeige
AW: Verknüpfungsstatus mit VBA
15.10.2007 20:57:14
Tino
Hallo,
habe noch eine Erweiterung eingebaut. 

Private Declare Function PathFileExists Lib "shlwapi.dll" _
Alias "PathFileExistsA" ( _
ByVal pszPath As String) As Long
Public Function IsFilePath(strPath As String) As Boolean
IsFilePath = CBool(PathFileExists(strPath))
End Function
Public Sub PrüfeLinks()
Dim Pfad As String
Range("B7") = "Aktualisiert"
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
Pfad = aLinks(i)
If IsFilePath(Pfad) = False Then
Range("B7") = "nicht Aktualisiert"
MsgBox "Es gibt diese Datei nicht " & Chr(13) & aLinks(i)
End If
Next i
End If
On Error GoTo FehlerLink:
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Application.DisplayAlerts = True
Range("B7") = "Aktualisiert"
Exit Sub
FehlerLink:
Application.DisplayAlerts = True
Range("B7") = "nicht Aktualisiert"
End Sub


Gruß
Tino

Anzeige
AW: Verknüpfungsstatus mit VBA
16.10.2007 08:59:12
Salim
Hi Tino,
danke sehr. werde ich gleich ausprobieren.
Gruss
Salim

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige