Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen Datei vorhanden, offen wenn nicht öffnen

Prüfen Datei vorhanden, offen wenn nicht öffnen
23.05.2017 09:31:42
Ludmila
Hallo,
nachfolgender Code funktioniert einfach nicht
Laufzeitfehler 9
Es soll geprüft werden ob die Datei (OFFD1) existiert, wenn ja dann öffnen, wenn bereits geöffnet dann ok.
Danke sehr!
Gruß, Ludmila
Function DataOffnen(sFile As String) As Boolean
'  sFile = "OFFD1.xlsm"
On Error Resume Next
DataOffnen = Not Workbooks(sFile) Is Nothing  'hier kommt die Fehlermeldung
End Function

Sub Verwaltung_Oeffnen()
Dim sPfad As String
Dim sFile As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
sPfad = ThisWorkbook.Path & "\"
sFile = "OFFD1.xlsm"
If Dir(sPfad & sFile) = "" Then           ' Prüfen ob Datei im gleichen Verzeichnis
MsgBox "Die Datei ist nicht vorhanden", vbCritical + vbOKOnly, "Datei nicht vorhanden  _
oder verschoben..."
ThisWorkbook.Close
End If
If Not DataOffnen(sPfad & sFile) Then
Workbooks.Open sPfad & sFile
ActiveWindow.Visible = False
Workbooks("Verwaltung.xlsm").Activate
ActiveWindow.Visible = True
Sheets("Eingabe").Activate
End If
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen Datei vorhanden, offen wenn nicht ö
23.05.2017 09:50:42
Michael
Hallo!
Sub a()
Dim WbMe As Workbook: Set WbMe = ThisWorkbook
Dim Wb As Workbook, WbZ As Workbook
Dim Pfad$, Datei$, O As Boolean
Pfad = WbMe.Path & "\"
Datei = "OFFD1.xlsx"
'Prüfen ob bereits geöffnet
For Each Wb In Workbooks
If Wb.Name = "OFFD1.xlsx" Then
'Wenn geöffnet als Ziel-Mappe festlegen
O = True: Set WbZ = Wb
End If
Next Wb
'Wenn noch nicht geöffnet
If Not O Then
'Prüfen ob Datei existiert
If Dir(Pfad & Datei, vbDirectory) = "" Then
'Datei existiert nicht, Meldung und Abbruch
MsgBox "Datei nicht vorhanden"
Exit Sub
Else:
'Datei existiert - Mappe öffnen und als Ziel-Mappe festlegen
Set WbZ = Workbooks.Open(Pfad & Datei)
End If
End If
With WbZ
'... Code für Ziel-Datei (OFFD1)
End With
With WbMe
'... Code für Quell-Datei (Diese Datei)
End With
End Sub
LG
Michael
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige