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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen