Option Explicit
Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir(ThisWorkbook.Path & "\*.xls", vbNormal) = "" Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub
Sub Datei_vorhanden()
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\Eigene Dateien\Hajo\Adresse.xls"
' Ergänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
Set Fso = Nothing
End Sub
in der die Dateinamen der sich auf dem Server befindenden Dateien eingetragen sind
welche Felder der Tabelle 1 keine Zuoprdnung finden.
Option Explicit
Sub Datei_vorhanden()
Dim LoLetzte As Long
LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Dim RaZelle As Range
For Each RaZelle In Range("F1:o" & LoLetzte)
If RaZelle "" Then
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\Eigene Dateien\Hajo\" & RaZelle
If Fso.FileExists(Dateiname) = False Then
RaZelle.Interior.Color = 255
Else
RaZelle.Interior.ColorIndex = xlNone
End If
End If
Next
Set Fso = Nothing
End Sub