Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schliessen von Datei nach Öffnen von Datei mit UF

Schliessen von Datei nach Öffnen von Datei mit UF
10.12.2017 10:06:59
Datei
Hallo ihr Excelspezialisten,
ich habe folgendes Problem:
Mittels Makro installiere ich einen Ordner auf dem Desktop und öffne gleichzeitig
eine darin befindliche Datei. Diese führt Workbook_Open aus mit Öffnen einer Userform.
Der letzte Code in ausgeführter Datei ist das Schliessen dieser Datei.
Da jedoch bereits die Userform geöffnet ist, wird dieses Schliessen erst nach Beendigung der Userform durchgeführt.
Wie kann ich es erreichen, dass das Schliessen vor dem Öffnen der UF durchgeführt wird?
Besten Dank für eure Hilfe.
Gruss
Peter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schliessen von Datei nach Öffnen von Datei mit UF
10.12.2017 10:08:53
Datei
schreibe vor Userform1.Show
ThisWorkbook.Close False

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
AW: Schliessen von Datei nach Öffnen von Datei mit UF
10.12.2017 11:51:04
Datei
Soll denn das Workbook_Open überhaupt ausgeführt werden?
Anzeige
AW: Schliessen von Datei nach Öffnen von Datei mit UF
10.12.2017 13:34:50
Datei
Hallo Guenni,
ja, selbstverständlich.
Die Idee von Hajo klingt vernünftig.
Hast Du eine andere Idee?
Gruss
Peter
AW: Schliessen von Datei nach Öffnen von Datei mit UF
10.12.2017 16:32:13
Datei
ne, dann passt das schon.
AW: Schliessen von Datei nach Öffnen von Datei mit UF
11.12.2017 11:09:39
Datei
Hallo Hajo,
leider besteht das Problem weiterhin.
Ich habe folgende Dateien gemäss einem Link im Forum erstellt:
Datei "Mappe2":
in Modul: 
Sub Test()
Workbooks.Open Filename:="C:\Users\Peter\Desktop\Test_StartUserform\Mappe1.xlsm"
Application.DisplayAlerts = False
Workbooks("Mappe2.xlsm").Close
Application.DisplayAlerts = True
End Sub
Datei "Mappe1":
in Modul: 
Sub UFStart()
Load UserForm1
UserForm1.Show
End Sub


Sub AnsichtBildschirm_maximized()
Application.WindowState = xlMaximized
End Sub

in "Diese Arbeitsmappe":
Sub workbook_open()
Call AnsichtBildschirm_maximized
Worksheets(1).Activate
Call UFStart
End Sub
Wenn ich Call AnsichtBildschirm_maximized und Worksheets(1).Activate weglasse,
dann funktioniert es einwandfrei, dass die Mappe1 geöffnet wird mit UserForm1 und die Datei "Mappe2" geschlossen wird.
Wird jedoch eine weiterer Zusatz wie Call AnsichtBildschirm_maximized und Worksheets(1).Activate eingefügt öffnet sich zwar die Mappe1 mit Userform1, aber Mappe2 wird nicht geschlossen.
Was muss ich bitte ändern, dass die Mappe2 trotzdem geschlossen wird?
Besten Dank für Deine Hilfe.
Gruss
Peter
Anzeige
Schliessen von Datei nach Öffnen von Datei mit UF
11.12.2017 13:31:37
Datei
Hallo,
entkoppele den Start der UF 
Private Sub workbook_open()
Call AnsichtBildschirm_maximized
Worksheets(1).Activate
Application.OnTime Now + TimeSerial(0, 0, 0), "UFStart", , True
End Sub
Gruß
Rudi
AW: Schliessen von Datei nach Öffnen von Datei mit UF
11.12.2017 13:41:09
Datei
Hallo Rudi,
besten Dank für Deine Hilfe.
Die Mappe2.xlsm wird ordnungsgemäss geschlossen und die UserForm1 geöffnet.
Beim Schliessen der UserForm1 mit unload me, kommt Fehlermeldung Laufzeitfehler 91
Objectvariable oder With-variable nicht festgelegt.
Was muss ich bitte ändern?!
Gruss
Peter
AW: Fehler gefunden
11.12.2017 13:51:53
Peter
Hallo Rudi,
habe den Fehler gefunden. Ursache war in UserForm1.
Besten Dank und einen schönen Tag.
Gruss
Peter
Anzeige
AW: Schliessen von Datei nach Öffnen von Datei mit UF
11.12.2017 11:18:48
Datei
Hallo Hajo,
Nachtrag:
Es geht insgesamt nicht. Was mache ich bitte falsch?
Gruss
Peter

300 Forumthreads zu ähnlichen Themen

Konvertierung Zahlen bei Datei-Öffnen mit Makro
Patrick

Hallo zusammen,
mir liegt eine Excel-Datei vor, die mir SAP zur Verfügung stellt.
Öffne ich diese Datei normal, dann werden Zahlen ganz normal angezeigt. Öffne ich diese Datei aber mit diesem Makro:
Dim strFilename 'Dateiname
Dim wbkWorkbook As Workbook 'Arbeitsmappe
strFile...
06.08.2009 16:10:07
Thread-ID: 1094113
10 Beiträge
Anzeige
'Datei öffnen' - Dialog mit Filter
Stefan

Guten Morgen zusammen,
ist zwar noch früh, aber ich frage schon mal in die Runde, ob mir jemand helfen kann.
Ich habe verschiedene Dateien (auch Word, bekomme ich aber mit CreateObject hin), die alle zum Anfang des Dateinamens eine Ordnungszahl (z.B. 130) haben. Nun möchte ich den 'Öffn...
08.04.2010 08:29:26
Thread-ID: 1150564
13 Beiträge
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Anzeige
Datei öffnen mit Userabfrage
morgandalf

Schönen guten Morgen allesamt,
bin seit einiger Zeit am schauen und rumbasteln, komm aber nicht weiter.
Kann mir jemand mit folgendem problem helfen:
Wie bekomme ich es hin, dass eine Excel-Datei nur von bestimmten Benutzern ohne Passwortabfrage geöffnet werden kann.
Ich hab hie...
01.01.1970 00:00:00
Thread-ID: 1218101
56 Beiträge
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Autofilter bein Schließen zurücksetzen
stormlamp

Hallo,
aus dem Forum habe ich zum Aufheben der Autofiltereinstellungen folgenden Code gefunden und mit dem Passwortschutz ergänzt:
------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim wksSheet As Worksheet For Each wksSheet In ThisWorkbook.Worksheets With wksSh...
10.04.2013 12:06:36
Thread-ID: 1308117
4 Beiträge
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
Datei öffnen mit fortlaufendem Namen.
Arif

Hallo,
mein Code hat das Ziel, eine Datei zu öffnen deren Namen sich jeden Tag ein klein wenig ändert.
Jeden Tag wird diese Datei aktualisiert, mit aktuellem Datum im Namen
(Bsp. 20140109_Test.xlxs)
Das Datum ist immer im "yyyymmdd" Format und den Zusatz nenne ich einfach mal "t...
01.09.2014 11:09:01
Thread-ID: 1379278
15 Beiträge
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
Archiv - Verwandte Themen
Forumthread
Beiträge
9
2
12
1
5
55
8
3
5
14
6
1
3
4
2
5
3
2
7
3
7
1
3
4
2