Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
724to728
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
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frage zu If Err <>0

Frage zu If Err <>0
30.01.2006 21:20:23
Cordula
Hallo Excel-Freunde,
habe mir über dieses Forum folgenden Code "zusammengebastelt", der auch wunderbar funktioniert. Ich weiß nur nicht, was 0 bedeutet. Könnt Ihr mir das erklären?
Ach ja, es geht darum, dass, wenn Mappe A geöffnet wird automatisch auch Mappe B. Wenn Mappe A geschlossen wird, wird automatisch auch Mappe B geschlossen. Falls der Anwender aber Mappe B VOR Mappe A schließt, erschien immer ein Debugger. Nun aber Gott sei Dank nicht mehr! NUR: 0 ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim datei As String
On Error Resume Next
Workbooks("B.xls").Activate
Workbooks("B.xls").Close SaveChanges:=True
If Err <>0 Then
End If
End Sub

Vielen Dank schon mal im voraus
LG
Cordula

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage zu If Err <>0
30.01.2006 21:24:50
Ramses
Hallo
Wenn einer dieser beiden Befehle
Workbooks("B.xls").Activate
Workbooks("B.xls").Close SaveChanges:=True
einen Fehler verursacht, hat ERR einen Wert ungleich 0
Gruss Rainer
AW: Frage zu If Err <>0
30.01.2006 21:28:32
Cordula
Hallo Ramses,
und dieses 0 verhindert den Debugger?
LG Cordula
AW: Frage zu If Err <>0
30.01.2006 21:55:42
Rolf
Hi,
On Error Resume Next verhindert den debugger.
So reicht es auch:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks("B.xls").Activate
Workbooks("B.xls").Close SaveChanges:=True
End Sub

mfg Rolf
Frage zu If Err <>0 "erledigt"
30.01.2006 22:15:49
Cordula
Hallo Rolf,
... suuper, vielen Dank!
LG
Cordula
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige