Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm nur laden, wenn Datei manuell geöffnet

UserForm nur laden, wenn Datei manuell geöffnet
11.08.2007 23:11:11
Sascha
Hi,
ich hab eine Datei1 in die von einer anderen Datei2 aus Daten eingetragen werden. Dazu öffnet Datei2 im VBA-Code Datei1 und trägt die Daten ein. Wenn ich Datei1 selber öffne soll ein UserForm geladen werden, nicht aber, wenn Datei1 von Datei2 geladen wird. Geht das?
Vielen Dank,
sascha.

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

Betreff
Datum
Anwender
Anzeige
AW: UserForm nur laden, wenn Datei manuell geöffnet
12.08.2007 11:24:00
Luschi
Hallo Sascha,
schreibe folgenden Code in "DieseArneitsmappe" von Datei_2.xls!!!: 

Private Sub Workbook_Open()
Dim ok As Boolean, wb As Workbook
ok = False
'alle geöffnen Arbeitsmappen durchlaufen und Name prüfen
For Each wb In Application.Workbooks
If wb.Name = "Datei_1.xls" Then
'wenn Name gefunden, dann Datei_1 geöffnet
ok = True
Exit For
End If
Next wb
Set wb = Nothing
If Not ok Then
'nur wenn Datei_1 nicht geöffnet, dann Userform anzeigen
'ok hat den Wert False
UserForm1.Show
End If
End Sub


Gruß von Luschi
aus klein-Paris

Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige