Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox beim öffnen von Datei automatisch schließen

MsgBox beim öffnen von Datei automatisch schließen
05.11.2003 08:15:40
Tobias
hi @all!

ich möchte per makro von einer datei aus eine zweite öffnen will, um daraus eine tabelle zu kopieren (was wunderbar klappt). nun mein problem: wenn ich jetzt die datei öffne, kommt immer eine dialogbox, da in der zu öffnenden datei links sind. jetzt fragt er mich, ob ich die updaten will. ich möchte aber, dass er automatisch auf "don't update" klickt. mein bisheriger quelltext sieht so aus:


Private Sub CommandButton1_Click()
ChDir ThisWorkbook.path
Workbooks.Open ("test1.xls")
Windows("test1.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("test2.xls").Sheets("sheet1")
End Sub


kann mir jemand helfen?

thx 4 ur answers!

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

Betreff
Datum
Anwender
Anzeige
AW: MsgBox beim öffnen von Datei automatisch schließen
05.11.2003 08:37:11
Hajo_Zi
Hallo Tobias

vielleicht hilf folgendes

vor öffnen
Application.DisplayAlerts = False ‚ Mitteilungen
nach öffnen
Application.DisplayAlerts = True ‚ Mitteilungen

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


AW: MsgBox beim öffnen von Datei automatisch schließen
05.11.2003 08:44:41
Peter
Hallo Tobias,

Ev. hilft es wen du nur die Werte drin hast.

Obwohl ich nicht weiss ob das in deinem Sinn ist!

Gruss Peter


Private Sub CommandButton1_Click()
ChDir ThisWorkbook.path
Workbooks.Open ("test1.xls")
Windows("test1.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("test2.xls").Sheets("sheet1")
'Kopieren und nur Werte einfügen.
Application.CutCopyMode = False
Cells.Copy
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Anzeige
Antworten
05.11.2003 09:30:55
Tobias
hi @ all!

funktioniert leider beides nicht... trotzdem danke!
neue frage
05.11.2003 10:52:55
Tobias
hi @all!

so ähnlich solls gehen

Workbooks.Open ("201003 Leadexport-test.xls", UpdateLinks:=false)

leider ist die syntax falsch, denn er sagt immer "expected:=" am ende der zeile.
kann einer helfen?

thx 4 ur answers!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige