Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ExitSub beiApplication.Dialogs(xlDialogOpen).Show

Forumthread: ExitSub beiApplication.Dialogs(xlDialogOpen).Show

ExitSub beiApplication.Dialogs(xlDialogOpen).Show
chrissey
Hallo Leut,
hab eine Frage. Starte mit Application.Dialogs(xlDialogOpen).Show das Explorerfenster
um eine Datei zu öffnen, wenn ich aber auf im Fenster keine Datei öffne sondern auf
Abbruch gehe, dann hätte ich gerne dass das Sub abgebrochen wird.
Ist das irgendwie zu bewerkstelligen, eventuell mit einer If Schleife oder ähnlichem?
Application.Dialogs(xlDialogOpen).Show
Danke und Grüße
Chrissey
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ExitSub beiApplication.Dialogs(xlDialogOpen).Show
24.02.2010 15:21:27
Luschi
Hallo Chrissey,
versuch es mal so: 

Dim xDatei As String
xDatei = CStr(Application.Dialogs(xlDialogOpen).Show)
If UCase(xDatei) = "FALSCH" Then
Exit Sub
End If
Gruß von Luschi
aus klein-Paris
AW: ExitSub beiApplication.Dialogs(xlDialogOpen).Show
24.02.2010 16:01:39
chrissey
Vielen, vielen Dank.
Funktioniert 1A. Klasse!
Grüße
Anzeige
AW: ExitSub beiApplication.Dialogs(xlDialogOpen).Show
24.02.2010 15:26:06
Uwe
Hallo Chrissey,
z.B. so: 

Sub aaa()
Dim strDatei As String
strDatei = Application.Dialogs(xlDialogOpen).Show
If Not CBool(strDatei) = False Then
MsgBox ActiveWorkbook.Name
End If
End Sub
Gruß Uwe
;

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
Anzeige
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
Anzeige
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
3 tabellen mit makro (auto_open) per vba starten
Yusuf

Hi,
ich habe folgendes Problem und komme nicht zu einer Loesung.
Ich oeffne von einem Arbeitsblatt aus drei weitere Arbeitsblaetter, welche Makros enthalten, die beim oeffnen der Arbeitsblaetter gestartet werden.
So sieht der nacheinander aufruf der Arbeitsblaetter aus.
Das Erge...
27.03.2009 12:56:55
Thread-ID: 1064587
5 Beiträge
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 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
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
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
VBA : Aufruf Sub2() innerhalb eines Sub1()
Hajo
Hallo Andreas
Gruß Hajo
16.04.2002 21:49:31
Thread-ID: 113895
2 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige