Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dialog Open + Application.EnableEvents Problem

Dialog Open + Application.EnableEvents Problem
11.08.2003 09:36:47
ThomasJ
Hallo Forum,
auf in eine neue Woche mit meinem ersten Problem:
Ich möchte Daten aus einer xls-Datei kopieren, die vorher mit dem OPEN-Dialog geöffnet wurde. Da diese xls-Datei ebenfalls Makros hat die beim Öffnen starten, weiß ich nun nicht, wie ich die Dateien kopieren soll.
Mein code:
.
.
.
Application.Dialogs(xlDialogOpen).Show
Application.EnableEvents = False
.
.
.
Andersherum, d.h. EnableEvents vor Dialogs stürzt Excel ab...???
Danke für Eure Hilfe
Thomas

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 09:44:50
Knut
das Application.EnableEvents = False erst nach dem eigentlichen
open einbauen.
Knut

AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 09:52:45
ThomasJ
Hallo Knut,
das scheint aber nicht zu funktionieren, wenn ich die datei über den Open-Dialog öffne!
Thomas

AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 09:59:28
Knut
Poste doch einfach mal den gesamten relevanten Code.
Knut

AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 10:15:23
ThomasJ
Der code:
janein = MsgBox("Auf Ihrem Rechner wurde keine ältere Version von FTG gefunden." & chr(10) & "Wollen Sie selbst nach der alten Version suchen?", vbYesNo, "FTG v1.1")
If janein = vbYes Then

Application.Dialogs(xlDialogOpen).Show
Application.EnableEvents = False
ActiveWorkbook.Saved = True

Set versalt = ActiveWorkbook
Set versneu = Workbooks("FTG v1.1.xls")
tore1 = "C1:C9"
tore2 = "E1:E9"
For j = 1 To 34
versaltalle = versalt.Worksheets(j)
versalt.Worksheets(versaltalle).Range(tore1).Copy Destination:=versneu.Worksheets(versaltalle).Range(tore1)
versalt.Worksheets(versaltalle).Range(tore2).Copy Destination:=versneu.Worksheets(versaltalle).Range(tore2)

Next j

ActiveWorkbook.Close
End If
Ich weiß, da ist in der For-Schleife auch irgendwo ein Fehler drin, aber da wollte ich dran gehen, wenn ich das hier gelöst habe.
Thomas

Anzeige
AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 10:30:41
Ramses
Hallo,
für was mach ich mir eigentlich die Mühe, wenn du nicht mal korrekt abschreiben kannst ;-)

Sub Copy_Old_Data_in_New_Sheet()
'(C) Ramses
'Variablen Deklaration
Dim wb1 As Workbook, wb2 As Workbook
Dim myR1 As String, myR2 As String
Dim wks As String
Dim i As Integer, n As Integer
Dim Qe As Integer
'Variablenzuweisung
Set wb1 = Workbooks(ThisWorkbook.Name)
'Anstelle von Mappe2.xls die Variable
'Aus deinem Suchdialog verwenden
Set wb2 = Workbooks("Mappe2.xls")
'Kopierbereiche definieren
myR1 = "C1:C9"
myR2 = "E1:E9"
'Kopiervorgang starten
For i = 1 To wb2.Worksheets.Count
wks = wb2.Worksheets(i).Name
wb2.Worksheets(wks).Range(myR1).Copy Destination:=wb1.Worksheets(wks).Range(myR1)
wb2.Worksheets(wks).Range(myR2).Copy Destination:=wb1.Worksheets(wks).Range(myR2)
Next i
Qe = MsgBox("Alle Daten kopiert", vbInformation + vbOKOnly, "Kopiervorgang beendet")
End 


Sub
Gruss Rainer
Anzeige
AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 10:41:47
ThomasJ
Hallo Rainer,
das mit Deinem Code funktioniert bei mir weiter oben in meinem Code. Das hier ist wohl etwas anderes, da ich die Datei aus der ich herauskopiere, erst über das Dialogfeld ÖFFNEN öffnen lassen will, und dann erst die Dateien aus diesem WB kopiere. Und das alles mit der Funktion EnableEvents vorneweg!
Ganz schön kompliziert, oder?!
Thomas

AW: Dialog Open + Application.EnableEvents Problem
11.08.2003 12:07:39
Ramses
Hallo,
so war das auch nicht gemeint.
Das was ich fett geschrieben habe, ist die Ursache weil deine Schleife nicht läuft.
Gruss Rainer

Problem gelöst
11.08.2003 14:05:29
ThomasJ
Hallo Forum,
habe mein Problem letzendlich alleine gelöst. Hat ja lang genug gedauert :-)
Also, hier mein code:
janein = MsgBox("Auf Ihrem Rechner wurde keine ältere Version von FTG gefunden." & chr(10) & "Wollen Sie selbst nach der alten Version suchen?", vbYesNo, "FTG v1.1")
If janein = vbYes Then

name1 = Application.GetOpenFilename

Application.Visible = False
Application.EnableEvents = False
Workbooks.Open name1

Set versalt = Workbooks(ActiveWorkbook.name)
Set versneu = Workbooks("FTG v1.1.xls")

tore1 = "C1:C9"
tore2 = "E1:E9"
tore3 = "G1:G9"
tore4 = "I1:I9"
For j = 1 To 34
versaltalle = versalt.Worksheets(j).name
versalt.Worksheets(versaltalle).Range(tore1).Copy Destination:=versneu.Worksheets(versaltalle).Range(tore1)
versalt.Worksheets(versaltalle).Range(tore2).Copy Destination:=versneu.Worksheets(versaltalle).Range(tore2)
versalt.Worksheets(versaltalle).Range(tore3).Copy Destination:=versneu.Worksheets(versaltalle).Range(tore3)
versalt.Worksheets(versaltalle).Range(tore4).Copy Destination:=versneu.Worksheets(versaltalle).Range(tore4)

Next j

ActiveWorkbook.Close
End If
Gruß
Thomas

Anzeige
@Ramses: Mal was anderes
11.08.2003 10:47:09
ThomasJ
Du Rainer,
kennst Du einen Gert Sieler (oder so ähnlich)??? Der hat sich tierisch über meinen letzten Thread hier aufgeregt (findest Du indem Du nach "ThomasJ" suchst). Was sagst Du denn dazu?
Thomas

AW: @Ramses: Mal was anderes
11.08.2003 12:06:17
Ramses
Hallo,
... überleg mal was du geschrieben hast, und lies es mit den Augen der antwortet ! ;-)
Gruss Rainer

75 Forumthreads zu ähnlichen Themen

frage zu doevents
chris

Hallo und guten morgen zusammen,
ich hätte mal eine frage. Es geht um Doevents.
Wollte es mir heute einmal anschauen und habe dazu im Forum einen Bitrag gefunden.
https://www.herber.de/forum/archiv/904to908/t904160.htm
Jetzt wollte ich ein bichen spielen ... Und habe mir gedach...
10.09.2008 08:40:46
Thread-ID: 1008625
5 Beiträge
Anzeige
Do Events und DDE bzw RTD Link
michael


Hallo,
ich habe eine Exceldatei die permanent Börsendaten über einen DDE-Link bzw einem RTD - Link bezieht und Berechnungen durchführt.
Gleichzeitig läuft in einer Endlosschleife ein Makro . In dem Makro sind einige DoEvents eingebaut um Excel noch bedienbar zu machen . Dies führt...
21.06.2009 18:21:30
Thread-ID: 1083297
2 Beiträge
Doevents oder wait?
Steve

Guten abend an alle,
habe wieder eine frage.
Ich hatte ungefähr diese frage schon mal gepostet aber niemand konnte mir antwort geben, daher ging ich ein wenig suchen und wollte fragen ob es möglich ist mit Doevent oder mit Wait einen code zu bauen der wartet bis die letzte geöffnete exc...
21.02.2012 10:44:39
Thread-ID: 1251691
4 Beiträge
Anzeige
Events zum Öffnen und Schließen von Workbooks
Workbooks

Hallo,
ich habe im Ordner XLSTART eine personal.xlsm gespeichert und dieses Tabellenblatt ausgeblendet.
Mich stört, dass beim starten von Excel kein neues leeres Arbeitsblatt geöffnet wird. Aus _ diesem Grund habe ich folgenden Makro in der personal.xlsm abgelegt: Private Sub Auto_ope...
10.12.2013 14:16:31
Thread-ID: 1342052
4 Beiträge
VBA Kommentar suchen, DoEvents?
WolfgangN

Hallo,
ich habe mir ein Makro gebaut, dass bestimmten Text aus Kommentaren sucht und u.a. der Reihe nach von unten nach oben anzeigt. Die Tabelle hat ca. 3500 Zeilen, in 3 Spalten soll gesucht werden und es hat ca. 1300 Kommentare, diese werden immer mehr. In Excel 2003 lief dies innerhalb...
24.01.2014 13:20:20
Thread-ID: 1346539
9 Beiträge
Events von dynamischne Multiseiten abfangen
dynamischne

Hallo Zusammen,
ich habe eine Anwendung, die mir dynamisch Textboxen und Comboxen auf einer Multipage anlegt. Das klappt auch wunderbar.
Jetzt habe ich mir 2 Containerklassen (es geht sicherlich auch mit einer) angelegt, mit denen ich die Events abfagen will.
Leider klappt das nur...
09.07.2014 14:08:11
Thread-ID: 1369487
3 Beiträge
DoEvents verwenden
Frederik Fuhrmann

Guten Morgen!Wie schreibe ich denn das, wenn ich hier eine DoEvent - Anweisung reinbringen will? Geht das überhaupt so, dass der nächste VBA - Befehl erst abgearbeitet wird, wenn die momentane Anweisung im anderen Programm abgearbeitet wurde?
SAPLogon = Shell("C:\Programme\Sappc46d\sapgui\sa...
12.08.2002 08:42:39
Thread-ID: 147404
3 Beiträge
DoEvents verwenden
Frederik Fuhrmann

Guten Morgen!Der Befehl "DoEvents" soll doch die Steuerung an das Betriebssystem übergeben solang eine angestoßene Aktion aktiv ist!? D.h., ich müsste doch eigentlich eine Anwendung starten können und dann mit Verwendung von "Do.." die Anmeldung ausführen. (Wartezeit = Zeit zum starten der Anwe...
13.08.2002 08:12:41
Thread-ID: 147815
6 Beiträge

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
4
3
1
3
3
3
8
2
2
5
2
11
10
1
2
3
7
3
2
6
3
7
1
2
1