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

Nach Abbruch neue Datei laden

Forumthread: Nach Abbruch neue Datei laden

Nach Abbruch neue Datei laden
02.02.2004 09:06:45
Daniel
Guten morgen zusammen!
Eine Frage, bitte: Ein Makro soll bei einem Error eine bestimmte Datei laden und dann automatisch beendet werden.
Wer kann mir sagen, wie der entsprechende VBA-Code lautet?!
Vielen Dank für eure Hilfe!
Gruß Daniel
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Abbruch neue Datei laden
02.02.2004 09:23:08
AndreasS
Hallo,
probier mal folgendes:

Sub fehler()
On Error GoTo fehler
fehler:
'Aufrufen
Öffnen
ActiveWorkbook.Close savechanges:=False
End Sub

'Wenn eine Pfadabfrage erfolgen soll...

Sub Aufrufen()
Dim path As String
Application.ScreenUpdating = False
path = InputBox("Bitte Pfad eingeben:", Title:="Pfadeingabe", Default:="C:\xyz.xls")
On Error Resume Next 'falls Datei nicht existiert
If path = "" Then Exit Sub
Workbooks.Open Filename:=path, _
UpdateLinks:=0
Application.ScreenUpdating = True
End Sub



Sub Öffnen()
Dim bExists As Boolean
Dim oWorkbook As Object
' Prüfen ob Datei bereits geöffnet ist
bExists = False
With Application
For Each oWorkbook In .Workbooks
If UCase$(oWorkbook.Name) = "xyz.XLS" Then
' Jetzt aktivieren
Windows(oWorkbook.Name).Activate
bExists = True
Exit For
End If
Next
End With
' Mappe neu laden!
If Not bExists Then
On Error Resume Next
Workbooks.Open Filename:="C:\xyz.XLS", ReadOnly:=False
On Error GoTo 0
End If
End Sub

Gruß
Andreas
Anzeige
AW: Nach Abbruch neue Datei laden
02.02.2004 09:44:41
Daniel
DANKE!!!
Gruß Daniel
;

Beliebteste Forumthreads (12 Monate)

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