Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung bei Datei öffnen abfangen

Fehlermeldung bei Datei öffnen abfangen
06.07.2006 13:20:22
stormy_weathers
Hallo Spezialisten,
ich habe ein in einem Excelblatt eine Schaltfläche eingebaut mit welcher ich eine andere Excel-Datei öffne. Das funktioniert auch bestens. Nun möchte ich den Code so abändern, dass ich keine Fehlermeldung erhalte, wenn die Datei bereits geöffnet ist, also im Stil von:
Datei öffnen
wenn Datei geöffnet dann Datei aktivieren (anzeigen) sonst Datei öffnen
Danke im Voraus für Tips!
mfg
stormy_weathers
PS: suche im Forum bereits erfolglos hinter mir....

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung bei Datei öffnen abfangen
06.07.2006 13:23:14
Mustafa
Hallo Stormy,
Am anfang des Codes diese Zeile einfügen:
On error goto Errorhandler
Und am Ende dann:
Errorhandler:
Workbook("Deine Mappe").Activate
Das sollte es eigentlich sein.
Rückmeldung wäre nett.
Viele Grüße aus Köln.
AW: Fehlermeldung bei Datei öffnen abfangen
06.07.2006 13:29:23
u_
Hallo,
das dürfte falsch sein, da es keinen Fehler, sondern eine Nachfrage gibt, ob die Datei erneut geöffnet werden soll.
Andersherum wird ein Schuh daraus:
On error goto Errhandler
Workbooks("Deine Mappe.xls").activate
Exit sub
errhandler:
Workbooks.open "c:\test\deine mappe.xls"
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
@ u_
06.07.2006 13:37:28
Mustafa
Hallo u_,
danke für die Erläuterung, ich habs nicht ausprobiert und in dem Augenblick nicht daran gedacht das es ja kein Fehler ist wie du sagst.
Deine Version ist natürlich die Richtige.
Viele Grüße aus Köln.
AW: Fehlermeldung bei Datei öffnen abfangen
06.07.2006 13:26:08
u_
Hallo,

Sub wb_offen()
Dim wb As Workbook, wkb As Workbook
For Each wb In Workbooks
If wb.Name = "Testmappe.xls" Then
Set wkb = wb
Exit For
End If
Next
If wkb Is Nothing Then
Set wkb = Workbooks.Open("c:\Test\testmappe.xls")
Else
wkb.Activate
End If
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Fehlermeldung bei Datei öffnen abfangen
06.07.2006 14:50:11
stormy_weathers
Super!!!
Danke für die schnellen Lösungen!!!
mfg
stormy_weathers

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige