Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Workbook.Open

Forumthread: VBA: Workbook.Open

VBA: Workbook.Open
28.10.2004 14:39:46
Fab
Hallo
Wie lautet der VBA-Befehl für folgende Situation?
Wenn das folgende Workbook Workbooks.Open Filename:="O:\FA2\MakroBox\A_gesch.xls" noch nicht geöffnet ist, soll das Makro die Mappe öffnen, sonst soll das Makro nichts tun.
Vielen Dank für die Hilfe
Fab
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Workbook.Open
Ramses
Hallo
Den Code in das Klassenmodul von "Diese Arbeitsmappe" kopiern.
Option Explicit

Private Sub Workbook_Open()
Dim chkFile As String
Dim wb As Workbook
Dim isOpen As Boolean
chkFile = "O:\FA2\MakroBox\A_gesch.xls"
isOpen = False
For Each wb In Application.Workbooks
If wb.FullName = chkFile Then
isOpen = True
End If
Next
If isOpen = False Then Workbooks.Open chkFile
End Sub

Gruss Rainer
Anzeige
Perfekt, danke! Gruss Fab o. T.
28.10.2004 14:53:28
Fab
;

Forumthreads zu verwandten Themen

personl.xls und workbook_open
heiko

Hallo alle,
ich habe in der personl.xls dem ereignis workbook_open code zugeordnet. Nach dem speichern, schließen und wieder öffnen ist der code allerdings verschwunden. Ein "normales" modul wurde mitgespeichert, nur halt der code zu workbook_open nicht.
Hat jemand 'ne lösung?
Heiko...
24.10.2008 11:05:00
Thread-ID: 1018921
6 Beiträge
Application.Workbooks.Open(KplName) versagt
Matthias

Hallo miteinander,
ich habe ein Problem mit dem VBA-gesteuertem Öffnen einer Excel-Datei: Application.Workbooks.Open(KplName) oder
Set wb = Application.Workbooks.Open(KplName) schlägt zunächst NICHT fehl beim Aufrufen aus einem Makro.
Der gleiche Befehl aus einem anderen File...
11.02.2009 13:48:00
Thread-ID: 1049571
5 Beiträge
Private Sub open geht nicht gut
Lukas

Hi Allerseits
Kann mir jemand von Euch helfen'
Ich starte die Datei mit Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen. Bis dahin alles i.O. Private Sub Workbook_Open() On Error Resume Next Application.Visible = False Application.ScreenUpdating = False...
14.02.2009 14:03:00
Thread-ID: 1050709
7 Beiträge
Anzeige
Start von Makro (Workbook_open) verhindern
Makro

Hallo Experten,
kann mir jemand von euch sagen, wie ich verhindern kann, dass ein Makro, welches beim Start einer Excel-Datei durchgeführt werden würde, ausgeführt wird, wenn diese Datei von einer anderen Datei per MAkro geöffnet wird.
Also:
Datei 1 öffnet per Makro1 Datei 2
Da...
17.02.2009 11:28:00
Thread-ID: 1051413
3 Beiträge
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
Hilfeee!! Verzweifelt!!! OpenWorkbook Aktion
Danki

Hallo zusammen,
bin kurz davor durchzudrehen. Folgendes Problem:
Ich habe eine Userform1 mit einer TextBox1. Die Userform wird durch
Sub Workbook_Open() UserForm1.Show End Sub
aufgrufen. Alles Super kein Problem wie zu erwarten.
Dann setze ich bei TextBox1 die Eigenschaft...
03.10.2009 15:31:38
Thread-ID: 1106978
8 Beiträge
Anzeige
Problem mit Private Sub Workbook_SheetDeactivate
Peter

Guten Tag
Immer wenn ich die Tabelle "Journal-zum-bearbeiten" verlasse, sollte der Code Aktivieren_Analyse ausgeführt werden.
Mir ist nicht klar, weshalb der nachfolgende Code dies nicht immer auslöst:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If Sh.Name = "Journal-zu...
14.10.2009 15:21:27
Thread-ID: 1109595
3 Beiträge
Anzeige
Private Sub Workbook_Open()
Sandra

Hallo zusammen,
mittels dieses Ereignisses erhält mein Chef montags und mittags beim Öffnen der Datei eine Info:
Private Sub Workbook_Open() Sheets("Übersicht").Select If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 3 Then MsgBox "über ..... informieren!" End If End Sub
Dummerweise...
16.10.2009 17:36:38
Thread-ID: 1110164
7 Beiträge
Private Sub WorkbookOpen() | Herbers Excel-Forum
Heinz H
Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy<...
31.01.2010 17:59:02
Thread-ID: 1134636
4 Beiträge
Set objWorkbook = Application.Workbooks.Open(Activ
Hugo

Hallo Zusammen
Nachfolgender Code läuft auf Excel 2000 und 2007
Im 2000 egal ob ich die Datei lokal oder über ein Netzlaufwerk gestartet wird.
Im 2007 nur wenn ich die Datei lokal starte.
Wenn ich im 20007 die Datei über ein Netz-LW starte entsteht ein Error bei
Set objWor...
31.10.2010 21:53:57
Thread-ID: 1184589
3 Beiträge
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Sub Workbook_Open()
Manfred

Hallo zusammen,
ist es möglich nach einem Sub Workbook_Open() dierekt auf das Blatt KALENDER zu springen ? Ich bekomme das einfach nichthin. Sub Workbook_Open() 'hier werden die Tabellen versteckt Sheets("Passwort").Visible = 2 Sheets("Benutzer_01").Visible = 2 'Die Passwortabfrage sollt...
22.08.2013 09:53:58
Thread-ID: 1327935
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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