Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code zum Prüfen, ob Datei geöffnet ist

Code zum Prüfen, ob Datei geöffnet ist
23.09.2004 15:19:08
Paul
Hallo,
bei folgendem Code steckt ein Fehler bei der if...then Funktion.
Kann jemand bitte helfen?
Gruß, Paul
code:

Sub fileStandort()
headsheetStandort = "overwiew"
headsheetRisiko = "Standort"
fNameStandort = "Dateistandort"
If WBStandortzieleÖffnen(fNameStandort) = False Then
Workbooks.Open Filename:=ThisWorkbook.Path & "Dateistandort"
End If
End Sub


Function WBStandortzieleÖffnen()
fNameStandort = "Dateistandort"
On Error GoTo Nonexistent
Dim Standortziele As String
fNameStandort = Workbooks(Standortziele).Name
WBStandortzieleÖffnen = True
Exit Function
Nonexistent:
WBStandortzieleÖffnen = False
End Function

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code zum Prüfen, ob Datei geöffnet ist
R.Win

Sub fileStandort()
headsheetStandort = "overwiew"
headsheetRisiko = "Standort"
fNameStandort = "Dateistandort"
If WBStandortzieleÖffnen(fNameStandort) = False Then
Workbooks.Open Filename:=ThisWorkbook.Path & "Dateistandort"
End If
End Sub


Function WBStandortzieleÖffnen(Standortziele)
On Error GoTo Nonexistent
fNameStandort = Workbooks(Standortziele).Name
WBStandortzieleÖffnen = True
Exit Function
Nonexistent:
WBStandortzieleÖffnen = False
End Function

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige