Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Hyperlink Prüfen ob Datei existiert bzw. nicht!!!!!!

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Hyperlink Prüfen ob Datei existiert bzw. nicht!!!!!! (2237 mal gelesen)
ChristianWW
Mitglied
KONSTRUKTEUR/ CAM PROGRAMMIERER


Sehen Sie sich das Profil von ChristianWW an!   Senden Sie eine Private Message an ChristianWW  Schreiben Sie einen Gästebucheintrag für ChristianWW

Beiträge: 31
Registriert: 21.10.2013

erstellt am: 05. Feb. 2015 14:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


LINK_TESTER.png

 
Hallo,

ich bin auf der Suche nach einem Makro welches im Aktiven Blatt die Zeilen Schritt für Schritt durchschaut ob sich in der Spalte AE ein Hyperlink befindet und wenn ja dann überprüft ob die Datei existiert oder eben nicht.

Der Hyperlink wurde mit einer Formel erzeugt.

Im Anhang noch ein Bild von meinem Problem. Hoffe ich konnte mich deutlich ausdrücken.

Ich bitte euch um Hilfe

Gruß Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 05. Feb. 2015 19:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ChristianWW 10 Unities + Antwort hilfreich

Code:
Sub HyperlinkCheck()
    Dim HyperlinkCheck As String
    Dim varcol As String
    Dim lRow As Long
    With ActiveSheet
   
    varColumn = "A" 'Spalte die durchsucht werden soll

        For lRow = .Range(varColumn & .Rows.Count).End(xlUp).Row To 2 Step -1
            HyperlinkCheck = Dir(Replace(.Cells(lRow, Range(Range(varColumn & "1").Address).Column).Value, "file:\\", ""), vbDirectory)
            .Cells(lRow, Range(Range(varColumn & "1").Address).Column).Interior.ColorIndex = _
                IIf(HyperlinkCheck = "", 3, xlColorIndexAutomatic)
        Next
    End With
End Sub


Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ChristianWW
Mitglied
KONSTRUKTEUR/ CAM PROGRAMMIERER


Sehen Sie sich das Profil von ChristianWW an!   Senden Sie eine Private Message an ChristianWW  Schreiben Sie einen Gästebucheintrag für ChristianWW

Beiträge: 31
Registriert: 21.10.2013

erstellt am: 06. Feb. 2015 07:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Fehler.png

 
Hallo Thomas,

wahrscheinlich steh ich gerade auf der Leitung aber ich bring das Makro nicht zum laufen.

Was muss ich denn noch anpassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 06. Feb. 2015 09:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ChristianWW 10 Unities + Antwort hilfreich

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz