Makro erweitern ?
12.10.2022 08:27:19
Bernd_hat
habe das unten stehende Makro aus dem Netz. In diesem Makro wird geprüft ob eine Datei dessen Pfad in Tabelle1 im Bereich A1:A80 steht vorhanden ist.
Ist sie nicht vorhanden wird der Pfad rot markiert.
Das funktioniert auch sehr gut.
Nun meine Frage:
Kann mit jemand den Code so ändern das auch geprüft wird ob die Datei geöffnet ist oder geschlossen ist ? Wäre super wenn dann in den Zellen B1:B80 jeweils hinter dem Pfad der Datei steht ob die Datei geöffnet ist oder geschlossen ist.
Würde mich super über Hilfe freuen.
Liebe Grüße Bernd_
Option Explicit
Sub DateiVorhanden()
Dim r1 As Range, z As Range
Dim msg As String
Set r1 = Worksheets("Tabelle1").Range("A1:A80") ' anpassen
For Each z In r1
With z
If .Value "" Then ' Leerzellen überspringen
If Dir(.Value) = "" Then
msg = msg & Mid(.Value, InStrRev(.Value, "\") + 1) & vbLf
.Interior.ColorIndex = 3
End If
End If
End With
Next z
If Len(msg) > 0 Then MsgBox msg, vbCritical, "Nicht gefunden:"
End Sub