Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige