Ich möchte via makro eine bestimmte excel-datei suchen und diese dann automatisch öffnen.
Weiß jemand hilfe?
Danke
Max
Sub erwartet" erscheint jedes mal.
Was mach ich falsch?
Danke
Max
Sub Siehnach()
Dim File$, Pfad$, Datei$
Pfad = "C:\eigene Dateien\"
Datei = "Mappe1.xls"
File = Dir(Pfad & Datei) 'ist leer wenn Datei im VZ fehlt
If Len(File) > 0 Then
Workbooks.Open Filename:=File
'mach was damit
Workbooks(File).Close
End If
End Sub