Thema: Hyperlink Laufzeitfehler 52 | Herbers Excel-Forum

Hallo,
habe in einer Zelle einen Hyperlink (\\c:\temp\test.dwg)
diesen Hyperlink habe ich durch einmaliges anklicken der Zelle noch nicht abgefragt ob es ihn gibt oder nicht. (wurde automatisch erstellt)
Durch ein Makro wird die der Link überprüft:

Sub test()
Dim zeIle As Long
' Spalte die durchsucht wird, hier F
Const sCol = 7
Application.ScreenUpdating = False
' Nimmt das aktive Arbeitsblatt
With ActiveSheet
' Ab Zeile 5
For zeIle = 5 To .Cells(Rows.Count, sCol).End(xlUp).Row
' Wenn Hyperlink da
If .Cells(zeIle, sCol).Hyperlinks.Count > 0 Then
' Schauen, ob es den gibt, OK oder Nicht OK eintragen
If Dir(.Cells(zeIle, sCol).Hyperlinks(1).Address) <> "" Then
.Cells(zeIle, sCol + 1).Value = "OK"
Else
.Cells(zeIle, sCol + 1).Value = "nicht OK"
End If
Else
' Kein Hyperlink, also Zelle daneben leeren
.Cells(zeIle, sCol + 1).ClearContents
End If
Next
End With
Application.ScreenUpdating = True
End Sub

PROBLEM: in Zeile " If .Cells(zeIle, sCol).Hyperlinks.Count > 0 Then" bricht das makro mit der Fehlermeldung: "Laufzeitfehler 52, Dateiname oder -nummer falsch" ab.
durch aktivierung der Zelle (einfaches anklicken des hyperlinks) funktioniert das makro weiter.
leider kann ich nichts finden, was mir helfen könnte.
Falls ihr eine Idee habt, würde ich mich sehr freuen.
Danke Elmar

Hi Elmar
Ich habe zum Testen
- eine neue Datei erstellt
- in Zelle G10 einen Hyperlink mit "\\c:\temp\test.dwg" gesetzt
- deinen Code ins allg. Modul eingefügt
Makro gestartet.
Nach Durchlauf steht in Zelle H10 = "nicht OK"
Es traten keine Fehler auf.
So ist zumindest das von dir gezeigte Makro ok, und der Fehler kommt woanders her.
Ciao
Thorsten

habe den Fehler gefunden. "\\c:" darf nicht in die Adresse
"C:\" reicht aus.

kann sein, bei mir funzt es auch mit "\\c..."
dann wird bei dir der Grund dafür Excel 2007 sein. Ich benutze Excel XP.