Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink Laufzeitfehler 52 | Herbers Excel-Forum


Betrifft: Hyperlink Laufzeitfehler 52 von: Elmar Graumnitz
Geschrieben am: 18.11.2009 08:37:56

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

  

Betrifft: AW: Hyperlink Laufzeitfehler 52 von: Oberschlumpf
Geschrieben am: 18.11.2009 09:15:08

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


  

Betrifft: AW: Hyperlink Laufzeitfehler 52 von: Elmar Graumnitz
Geschrieben am: 18.11.2009 09:20:14

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


  

Betrifft: AW: Hyperlink Laufzeitfehler 52 von: Oberschlumpf
Geschrieben am: 18.11.2009 09:27:04

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


Beiträge aus den Excel-Beispielen zum Thema "Hyperlink Laufzeitfehler 52"