Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Unterdrücken von Meldungen in VBA

438 views
Skip to first unread message

Ulrich Möderl

unread,
Jul 17, 2001, 2:59:47 AM7/17/01
to
Hallo,

1. wenn ich mit workbooks.open eine Datei öffnen will, die
schon offen ist, kommt die Msgbox mit öffnen ja/nein. Bei
nein bricht das Makro ab - trotz on error resume next.
(Natürlich kann ich zuerst alle offenen Arbeitsmappen
durchsuchen und selber fragen - aber das ist nicht elegant)
2. ich habe zwei dateien, wobei die eine die andere
refernziert. Versuche ich zuerst die refernzierte zu
schließen, kommt die Meldung "This workbook is referencd
by another". Diese Meldung kann ich derzeit nicht
unterdrücken (autoclose, .beforeclose etc.)
3. wie kann ich beim öffnen von Dateien die Abfrage ob die
externen Verknüpfungen aktualisiert werden sollen
unterbinden?

Danke

Ulrich

Frank Arendt-Theilen

unread,
Jul 17, 2001, 3:12:55 AM7/17/01
to
Hallo Ulrich,
mit Application.DisplayAlerts = False und späterem Zurücksetzen mit
Application.DisplayAlerts = True

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Mon, 16 Jul 2001 23:59:47 -0700, schrieb Ulrich Möderl
<ulrich....@borealisgroup.com> in microsoft.public.de.excel zu
"Unterdrücken von Meldungen in VBA":

Klaus Hofmann

unread,
Jul 24, 2001, 3:31:00 AM7/24/01
to
Hallo Ulrich,

leider habe ich für dich nur den Rat alle Arbeitsmappen zu durchsuchen
und falls die Datei noch nicht offen ist, dann zu öffnen.

Dim x%
Dim DatName$

Application.DisplayAlerts = False 'Unterdrückt Meldungen auf dem Bildschirm

For x = 1 To Application.Workbooks.Count

If DatName= Application.Workbooks.Item(x).Name Then
GoTo offen
End If
Next x
Workbooks.Open Filename:=DatName, UpdateLinks:=0, ReadOnly:=True
offen:
Windows(DatName).Visible = True
Windows(DatName).Activate

' Mit UpdateLinks=0 werden Aktualisierungen der Verknüpfungen zu anderen
Dateien unterdrückt

Ansonsten habe ich zur Zeit keine bessere Idee. Das durchsuchen der
Arbeitsmappen dauert nicht
solange.

Gruß

Klaus


Ulrich Möderl schrieb in Nachricht
<6abb01c10e8e$1131dd30$9ae62ecf@tkmsftngxa02>...

0 new messages