Makro abändern (Verfügbarkeit der Dateien über.)?
07.11.2006 21:42:32
Selma
mit diesem Code kann ich die für markierten Zellenbereich die Verfügbarkeit von Dateien (als Hyperlink dargestellt) prüfen.
Wenn die Datei auf der Festplatte fehlt wird die Zelle mit der rote Hintergrundfarbe eingefärbt. Dies funktioniert soweit gut.
Ich möchte dieses Makro auf aktuelles Arbeitsblatt (nicht über markierten Zellenbereich) anwenden wie folgt:
- Prüfen in Spalte A wo die letzte Zelle mit Inhalt ist. Das ist dann die letzte Zeile an der Makro angewendet werden soll.
- Falls die Datei auf der Festplatte fehlt, dann nur die Zelle mit Hyperlink in rote Hintergrundfarbe darstellen.
- Beim zweiten Start des Makros soll nur die rote Farbe (bei Hyperlinks) entfernt werden und dann prüfen.
- MsgBox wieviele Dateien fehlen.
Wer kann mir bitte dabei helfen dieses Makro anzupassen ?
Public Declare
Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Sub Check_Hyperlink()
Dim rg As Range
Dim Zelle As Range
Set rg = Selection
For Each Zelle In rg.Cells
On Error Resume Next:
url = Zelle.Hyperlinks.Item(1).Address
If Len(url) > 0 Then
imaje = PathFileExists(url)
If imaje = 0 Then
Zelle.Interior.ColorIndex = 3
Else
Zelle.Interior.ColorIndex = xlNone
End If
End If
Next
End Sub
Vielen Dank im Voraus....
Liebe Grüße
SELMA