Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige