Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
264to268
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Workbooks.Open

Workbooks.Open
11.06.2003 11:25:09
EL
Hallo zusammen!
(Worksbook.Open......)
überspringen Workbooks.Open Filename:="\....." wenn die arbeitsmappe schon offen.
ich offne mit Kakro eine arbeitsmappe , nun fall is bereits offen
kommt Meldung: Arbeitsmappe1.xls . ist bereits geöffnet,wenn Sie erneutöffnen,..........
JA ....OK
Nein .... Laufzeitfehler 1004.
----
----
Workbooks.Open Filename:="\\Fibuserver\G_B\ECS\Daten.xls"
----
----
Gruß
EL

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Workbooks.Open
11.06.2003 11:41:32
Nepumuk

Hallo El,
so geht's:

Dim Arbeitsmappe As Workbook, gefunden As Boolean
For Each Arbeitsmappe In Workbooks
If LCase(Arbeitsmappe.Name) = "daten.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open Filename:="\\Fibuserver\G_B\ECS\Daten.xls"

Gruß
Nepumuk

Re: Workbooks.Open
11.06.2003 13:18:10
EL

Hallo Nepumuk!
Super es Funktioniert!
nun Andere Frage!
wie kann ich beim schließen ein Userform mit einfach auf x schliessen eine bestimmte arbeitsmappe schließen.
Gruß
EL

Re: Workbooks.Open
11.06.2003 13:38:47
Knut

Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Workbooks("DeinWorkbook.xls").Close False
End Sub

...oder True, wenn gespeichert werden soll.

Knut

Anzeige
Re: Workbooks.Open
11.06.2003 14:41:23
EL

HALLO Knut!
Es Funtioniert super
Danke euch Alle!
Gruß
EL

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige