Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei vorhanden ?

Forumthread: Datei vorhanden ?

Datei vorhanden ?
28.06.2005 08:21:51
walter
Guten Morgen,
ich habe über das Forum folgendes Makro zusammengebastelt:
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "Zubehör.xls" ' Name der Datenbank
Fname = "C:\Verkauf\" & Datei ' kompletter Pfad der Datenbank
bolOpen = False
For Each wb In Application.Workbooks
If wb.Name = Datei Then ' Datenbank schon geöffnet?
bolOpen = True
'MsgBox "Datei ist geöffnet !"
Exit For
End If
Next
If bolOpen = False Then Workbooks.Open Filename:=Fname
End Sub
Nun möchte ich wenn die Datei nicht vorhanden ist eine MSGBOX kommt, Datei nicht vorhanden, Wo setze ich dies MSGBOX hin ?
Bei mir kommt eine Fehlermeldung, DAtei nicht vorhanden und das Makro muß ich mit "Benden" drücken beenden.
Gruß Walter MB
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei vorhanden ?
28.06.2005 09:29:05
Andreas
Hallo Walter probiers mal damit
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "Zubehör.xls" ' Name der Datenbank
Fname = "C:\Verkauf\" & Datei ' kompletter Pfad der Datenbank
bolOpen = False
For Each wb In Application.Workbooks
If wb.Name = Datei Then ' Datenbank schon geöffnet?
bolOpen = True
'MsgBox "Datei ist geöffnet !"
Exit For
End If
Next
If dir(fname) = "" then
msgbox "Datei " & fname & " ist nicht vorhanden
Exit sub
End if
If bolOpen = False Then Workbooks.Open Filename:=Fname
End Sub
Gruß Andreas
Anzeige
Funktioniert aber...
28.06.2005 11:54:34
walter
Hallo Andreas,
Danke für die schnelle Hilfe.
Das Makro soll aber weiter ausgeführt werden und das geht nicht.
Hier die Makro-Zeilen die ich DUMMERWEISE nicht kopiert habe:
Windows("Muster.xls").Activate
Sheets("Muster").Select
Range("a1").Select
Walter.Show
Gruß Walter mb
Anzeige
BITT, BITTE Dringend helfen, klappt nicht !!!!
28.06.2005 15:08:03
walter
Hallo Andreas,
leider klappt es nicht, mein "Auto-Open" wird nicht ausgeführt.
Gruß Walter
AW: BITT, BITTE Dringend helfen, klappt nicht !!!!
28.06.2005 15:55:43
DanieL
Hallo Walter,
probiers mal mit GOTO, also so:

Sub test()
Dim Datei, Fname As String
Dim wb As Workbook
Dim wbDatabase As Workbook
Dim wsDatabase As Worksheet
Datei = "Zubehör.xls" ' Name der Datenbank
Fname = "C:\Verkauf\" & Datei ' kompletter Pfad der Datenbank
bolOpen = False
For Each wb In Application.Workbooks
If wb.Name = Datei Then ' Datenbank schon geöffnet?
bolOpen = True
MsgBox "Datei ist geöffnet !"
Exit For
End If
Next
On Error GoTo Nvorhanden
If bolOpen = False Then
Workbooks.Open Filename:=Fname
GoTo Ende
End If
Nvorhanden:
MsgBox "Sorry Baby, Datei ist nicht vorhanden"
Ende:
'Die uebrigen Zeilen
End Sub

Anzeige
AW: BITT, BITTE Dringend helfen, klappt nicht !!!!
28.06.2005 23:05:28
Walter
Hallo Daniel,
Danke für den Tip, da ich spotan zum Kunden mußte, werde ich das Morgen testen.
Gruß Walter
;

Beliebteste Forumthreads (12 Monate)

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