Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Defekten Verzeichnis- bzw. Dateilink via Makro (Excel) markieren

Frage Entwicklung VB for Applications

Mitglied: Letzify

Letzify (Level 1) - Jetzt verbinden

08.02.2015, aktualisiert 09.02.2015, 926 Aufrufe, 10 Kommentare

Hallo da draußen,

ich habe eine Frage zu einem Makro, welches mich jetzt schon fast wahnsinnig macht. Ich suche ein Makro, welches mir defekte Links aus einer Tabelle raussucht und mir meinetwegen einfach nur rot markiert.

Das Problem:
Ich habe einige Makros gefunden, die alle ganz super sind. Nur leider markieren sie mir ALLE Links, auch jene, die funktionieren (bei Verzeichnissen).

Kurioserweise markiert er mir Dateien korrekt, also sowohl wenn sie funktionieren (keine Markierung) als auch wenn sie defekt sind (Markierung).

Ein Makro:
01.
Option Explicit 
02.
 
03.
Sub HyperlinksTesten() 
04.
Dim HyperL As Hyperlink, Zelle As Range, Addresse As String 
05.
 
06.
For Each HyperL In ActiveSheet.Hyperlinks 
07.
If Not HyperL.Address Like "*\*" Then 
08.
Addresse = ActiveWorkbook.Path & "\" & HyperL.Address 
09.
Else 
10.
Addresse = HyperL.Address 
11.
End If 
12.
If Dir(Addresse) = "" Then 
13.
Set Zelle = HyperL.Range 
14.
HyperL.Delete 
15.
Zelle = "ERROR: " & Addresse 
16.
Zelle.Font.ColorIndex = 3 
17.
End If 
18.
Next 
19.
End Sub
Kann mir jemand helfen? Bitte...
Mitglied: Letzify
09.02.2015 um 07:35 Uhr
Hat niemand eine Idee? Ich hatte vermutet, dass diese Zeile hier noch angepasst werden müsste, habe aber keine Idee um was.

01.
If Dir(Addresse) = "" Then
Ich habe in einem anderen Makro einen anderen Dir-Befehl gesehen, der wohl auch Verzeichnisse prüft, aber der funktioniert in diesem Makro nicht.
Bitte warten ..
Mitglied: 114757
LÖSUNG 09.02.2015, aktualisiert 15.06.2015
Schon wieder so eine ungeduldige Natur ....
01.
Option Explicit 
02.
Option Compare Text 
03.
 
04.
Sub HyperlinksTesten() 
05.
    Dim HyperL As Hyperlink, Addresse As String, rng As Range, fso As Object 
06.
    Set fso = CreateObject("Scripting.FileSystemObject") 
07.
 
08.
    For Each HyperL In ActiveSheet.Hyperlinks 
09.
        If Not HyperL.Address Like "*\*" Then 
10.
            Addresse = ActiveWorkbook.Path & "\" & HyperL.Address 
11.
        Else 
12.
            Addresse = HyperL.Address 
13.
        End If 
14.
        If not fso.FolderExists(Addresse) and Not fso.FileExists(Addresse) Then 
15.
            With HyperL 
16.
                Set rng = HyperL.Range 
17.
                .Range.Value = "ERROR: " & Addresse 
18.
                .Delete 
19.
                rng.Font.ColorIndex = 3 
20.
            End With 
21.
        End If 
22.
    Next 
23.
    set fso = Nothing 
24.
End Sub
Gruß jodel32
Bitte warten ..
Mitglied: 116301
09.02.2015 um 10:06 Uhr
Hallo Jodel32!

Mhm..., Löschen wenn der Pfad existiert?


Grüße Dieter
Bitte warten ..
Mitglied: 114757
09.02.2015, aktualisiert um 10:23 Uhr
Zitat von 116301:
Mhm..., Löschen wenn der Pfad existiert?
Ohhh my god, sorry ist korrigiert . Danke dir.
Bitte warten ..
Mitglied: 116301
09.02.2015, aktualisiert um 10:59 Uhr
Hallo Jodel!

Ohhh my god, sorry ist korrigiert...
OK, aber dann bitte mit einem 'And'

Grüße Dieter
Bitte warten ..
Mitglied: Biber
09.02.2015, aktualisiert um 11:17 Uhr
Moin jodel32,

ich bin ja eigentlich kein Fan von globalen Variablen.

Aber in einer Schleife über x Elemente jedesmal in IsFolder()/IsFile() in dieser Prüfung
If Not IsFolder(Addresse) and Not IsFile(Addresse) then
.. ein neues FileSystemObject erzeugen... ja nee.

Zu meiner Zeit haben wir nicht zu rumgeaast mit den Ressourcen.
Allerdings hatte damals ein handelsübliches Rechenzentrum nur die Power von anderthalb Einsteiger-Smartphones.

Ich würde trotzdem einmalig ein Object oFso=CreateObject("Scripting.FileSystemObject") erzeugen, rein aus Gewohnheit, und dieses in den beiden Functions vewenden.

Oder noch wahrscheinlicher, ich würde hier auf Kapselkrams verzichten.

01.
.... 
02.
oFSO= CreateObject("Scripting.FileSystemObject") 
03.
 
04.
...  If Not oFSO.FolderExists(Addresse) and Not oFSO.FileExists(Addresse) then  
05.
...
Grüße
Biber
Bitte warten ..
Mitglied: Letzify
09.02.2015, aktualisiert um 11:26 Uhr
Guten Morgen,

vielen Dank, ich teste die Lösung sofort. Wollte nicht ungeduldig sein, aber der Chef will Ergebnisse :D

In Zeile 14 verlangt er von mir ein Objekt? Das Makro funktioniert so also leider nicht...
Bitte warten ..
Mitglied: 114757
09.02.2015, aktualisiert um 11:50 Uhr
So damit nun hoffentlich alle zufrieden sind, oben angepasst ...

aber der Chef will Ergebnisse :D
Fremde federn ... falscher Job !?
Bitte warten ..
Mitglied: Letzify
09.02.2015 um 13:43 Uhr
Danke Jodel, hat scheinbar geklappt.
Bitte warten ..
Mitglied: Joarden
15.06.2015 um 15:33 Uhr
Hallo Zusammen,

ich habe das gleiche Problem wie Letzify. Ich möchte Hyperlinks auf Funktionsfähigkeit testen und bei false rot markieren.
Leider funktioniert das mit dem Makro, welches ich von Jodel32´s Beitrag kopiert habe nicht ganz.
Mit VBA habe ich mich erst seit drei Tagen, aufgrund dieses Problems, beschäftigt. Daher habe ich nicht wirklich viel Hintergrundwissen.

Hier ein Bild von meiner Tabelle (die ist natürlich viel größer, dient nur als Beispiel) und dem Entwicklerfenster daneben.
Was muss ich anpassen, damit es funktioniert?

Bild: http://abload.de/img/hyperlink6euym.jpg

Über Hilfe würde ich mich sehr freuen!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Makro
Frage von maloh1984Microsoft Office4 Kommentare

Hallo Habe ein Problem, ein Kunde der hat Excellisten mit Makro die lassen sich öffnen aber die Buttons reagieren ...

Microsoft Office
Excel-Makro
gelöst Frage von yuki13Microsoft Office7 Kommentare

Hallo Zusammen!! :-) Ich bin nicht so fit in Excel Makros und wollte mich hier erkundigen, ob mir jemand ...

Microsoft Office
Excel - Aktuellen Monat Markieren
gelöst Frage von Questionmark93Microsoft Office9 Kommentare

Hallo Leute, Ich habe da mal eine Frage: Und zwar wie kann ich den aktuellen Monat automatisch farbig markieren? ...

VB for Applications
Excel Makro Kreisdiagramm für Fortgeschrittene
gelöst Frage von StefanHVB for Applications3 Kommentare

hallo zusammen, habe mal wieder ein excel / makro problem  ich möchte ein kuchendiagramm / kreisdiagramm erstellen, das ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 18 StundenMicrosoft Office8 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 20 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 21 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke14 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Server-Hardware
Veeam Backup Server stürzt alle paar Tage ab
Frage von Leo-leServer-Hardware12 Kommentare

Hallo Forum, ich habe momentan folgendes Problem. Veeam Backup and Replication 9.5 u2 auf voll gepatchten DL 380 G7 ...

Windows 10
Windows10-Schnellzugriff per Kommandozeile bearbeiten
Frage von SarekHLWindows 1010 Kommentare

Hallo zusammen, weiß jemand, wie ich per Kommandozeile (in einem Logon-Script) den persönlichen Dokumentenordner aus dem Schnellzugriff entferne den ...