Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen - aber warten !

Datei öffnen - aber warten !
13.09.2006 17:00:29
Fabio
Hallo,
ich will, das ich innerhalb von Excel eine Datei öffne (per Script - auswähle und dann öffne) - bevor Excel dann die weiteren Schritte ausführt, soll
-> gewartet werden bis die Datei auf ist
-> und dann erst die weiteren schritte ausgeführt werden
Problem :
-> er öffnet nicht (es geht zwar das Fentster mit den Dateien auf - ich kann auch auf "öffnen" klicken - nur öffnet der die nicht)
-> wie bekomme ich die "pause" hin, sprich das die weiteren Makroschritte
erst ausgeführt werden, wenn die Datei offen ist
Danke
Fabio

Sub Öffnen()
ChDir "\"
ChDrive "O:\"
ChDir "Tore_20006"
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
MsgBox "Ihre Auswahl wird geöffnet:" & vbNewLine & Dateiname
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen - aber warten !
13.09.2006 17:07:10
Josef
Hallo Fabio!
Warten ist nicht notwendig, weil VBA ohnehin mit der Ausführung des weiteren Codes wartet (warten muss), bis die Datei geöffnet ist.
Sub Öffnen()
Dim strFile As Variant

ChDir "\"
ChDrive "O:\"
ChDir "Tore_20006"
strFile = Application.GetOpenFilename _
  ("Micrsoft Excel-Dateien (*.xls),*.xls")

If strFile = False Then Exit Sub

Workbooks.Open strFile

End Sub



Gruß Sepp

Anzeige
Funktioniert - Ergänzung ?
14.09.2006 09:31:46
Fabio
Hallo Sepp,
vielen Dank! Jetzt funktioniert das.
Ergänzungsfrage (weil ich das System gerne verstehen würde) - wie müsste der Code aussehen, wenn "der Name der Datei" die ich öffnen will, im der Zelle A3 steht ?
Dann müsste ich das wohl ändern :
strFile = Application.GetOpenFilename _
(aber wie auf strFile = A3)
(in A3 steht dann zum Beispiel : TorDifferenz36.xls
(den Pfad definiere ich ja zuvor)
Danke !
Fabio
AW: Funktioniert - Ergänzung ?
14.09.2006 09:36:17
Josef
Hallo Fabio!
strFile = "O:\Tore_2006\" & Range("A3").Text

Gruß Sepp

Anzeige
Danke- aber wie wieder Stoppen ? Rundlauf ?
14.09.2006 10:04:53
Fabio
Servus Sepp,
vielen Dank !
Meine Frage ist aber nun, wie "stoppe" ich das Makro/VBA, wenn die Datei (warum auch immer - z.B. Netzlaufwerk nicht da etc.) nicht geöffent werden kann ?
An "Dein" Makro habe ich ja noch weitere angehängt - das funktioniert auch. Problem ist nur, wenn die Datei (warum auch immer) nicht geöffnet werden kann.
Dann hätte ich gerne eine kurze "Text" (PopUp) mit dem Hinweis "Vorgang gestoppt - Datei "(name der in A3 steht) kann nicht geöffnet werden. Die weiteren Makros dürfen dann nicht ausgeführt werden.
Danke !
Fabio
jetzt auch Fehlermeldung "400" bzw. "1004"
14.09.2006 10:24:07
Fabio
Servus Sepp,
vielen Dank !
Meine Frage ist aber nun, wie "stoppe" ich das Makro/VBA, wenn die Datei (warum auch immer - z.B. Netzlaufwerk nicht da etc.) nicht geöffent werden kann ?
An "Dein" Makro habe ich ja noch weitere angehängt - das funktioniert auch. Problem ist nur, wenn die Datei (warum auch immer) nicht geöffnet werden kann.
Dann hätte ich gerne eine kurze "Text" (PopUp) mit dem Hinweis "Vorgang gestoppt - Datei "(name der in A3 steht) kann nicht geöffnet werden. Die weiteren Makros dürfen dann nicht ausgeführt werden.
Danke !
Fabio
N.S. Beim ersten Test des Makros :

Sub Öffnen()
Dim strFile As Variant
ChDir "\"
ChDrive "O:\"
ChDir "Tore_20006"
strFile = "O:\Tore_2006\" & Range("A3").Text
If strFile = False Then Exit Sub
Workbooks.Open strFile
End Sub

Bricht er an der Stelle open strFile - mit Fehler 400 ab. Obwohl in "a3" der Name der Datei steht..hmmm ?
Fabio
Anzeige
AW: jetzt auch Fehlermeldung "400" bzw. "1004"
14.09.2006 10:31:36
Josef
Hallo Fabio!
So wird geprüft, ob die datei vorhanden ist.
Sub Öffnen()
Dim strFile As String


strFile = "O:\Tore_2006\" & Range("A3").Text

If Dir(strFile) = "" Then
  MsgBox "Datei nicht gefunden"
  Exit Sub
Else
  Workbooks.Open strFile
End If

End Sub


Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige