Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei offen ?

Datei offen ?
21.07.2005 17:00:09
Walter
Hallo,
wie kann ich abprüfen ob eine Datei offen ist (aktiviert) oder nicht ?
Die Datei: "Muster.xls"
Wenn nicht offen dann vom Verzeichnis aus öffnen,
Verzeichnis: C:\Haus\"Muster.xls"
Gruß Walter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei offen ?
21.07.2005 17:14:23
Ramses
Hallo
probier mal
Option Explicit

Sub TestFileOpen()
Dim isOpen As Integer
Dim strFile As String
strFile = Application.GetOpenFilename("EXCEL Files *.xls, *.xls")
If strFile = "" Then Exit Sub
isOpen = TestOpen(strFile)
Select Case isOpen
    Case 0:
        MsgBox "Datei " & strFile & " ist frei"
        Workbooks.Open strFile
    Case 1: MsgBox "Datei " & strFile & " ist geöffnet"
    Case 2: MsgBox "Datei " & strFile & " wurde nicht gefunden"
End Select
End Sub


Private Function TestOpen(strFilePath As String) As Integer
If Dir(strFilePath) = "" Then
    TestOpen = 2
Else
    On Error GoTo errorhandler
    Open strFilePath For Random Access Read Lock Read Write As #1
    Close #1
End If
errorhandler:
If Err = 70 Then TestOpen = 1
End Function
Gruss Rainer
Anzeige
AW: Datei offen ?
21.07.2005 18:08:48
Walter
Hallo Rainer,
herzlichen Dank für die Info.
Gibt es nicht etwas einfacher, was ich in mein Makro einbinden kann?
Wenn die Datei offen ist soll Sie aktiviert werden, sonst vom Verzeichnis geholt und aktiviert werden.
Gruß Walter
AW: Datei offen ?
21.07.2005 19:44:49
Ramses
Hallo
Das ist einfach :-)
Woher soll ich wissen, was bei dir einfach ist, und auf welche Dateien du zugreifen willst.
Beim nächsten Mal besser erklären :-)
On Error Resume Next
Window("DeineMappe.xls").Activate
If Err 0 Then
Workbooks.Open "Pfad und Dateinmane"
Err.Clear
End If
On Error goto 0
Gruss Rainer
Anzeige
Danke aber...
21.07.2005 20:55:32
Walter
Hallo Rainer,
erst mal bitte ich um Entschuldigung wenn ich mich blöd und nicht deutlich
ausgedrückt habe.
Habe eingesetzt, leider kommt Fehlermeldung: Fehler beim Kompilieren
Sub oder Function nicht definiert
komm nicht weiter,
gruß Walter
Danke aber...
21.07.2005 20:55:43
Walter
Hallo Rainer,
erst mal bitte ich um Entschuldigung wenn ich mich blöd und nicht deutlich
ausgedrückt habe.
Habe eingesetzt, leider kommt Fehlermeldung: Fehler beim Kompilieren
Sub oder Function nicht definiert
komm nicht weiter,
gruß Walter
Anzeige
AW: Danke aber...
21.07.2005 20:59:50
Ramses
Hallo
zeig mal den Code den du bisher hast und beschreibe in welcher Zeile der Fehler auftritt.
Gruss Rainer
Danke funktioniert
21.07.2005 21:01:25
Walter
Hallo Rainer,
ich bin doch etwas blöd, hatte bei Window das s vergessen.
Funktioniert super,
Danke nochmals
Walter
AW: Danke funktioniert
22.07.2005 06:04:59
Hajo_Zi
Hallo Walter,
warum ist der Beitrag offen. Nach dieser Aussage "Funktioniert super,
" würde ich das nicht vermuten.
Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
AW: Danke o.t
22.07.2005 16:06:18
walter
Hallo Hajo,
selbstverständlich,
läuft alles prima,
Danke.
Gruß Walter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige