Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei Code für MSGBOX

Hilfe bei Code für MSGBOX
12.03.2005 21:44:46
Thomas.
Hallo an die Experten
Ich bräuchte einmal Eure Hilfe, komme hier nicht weiter
Ich habe hier folgenden Code :

Private Sub cmdOK_Click()
Dim fname As String  ' Der Dateiname
fname = myPath & IIf(txtFileName = "", "Ohne Name", txtFileName) & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
Unload Me
cmdSchalttafel.Show
End Sub

Nun möchte ich wenn der OK Button gedrückt wurde, das dann eine MSGBOX
Öffnet mit dem Hinweis : “ Bitte warten “
Wie müsste der Code hierfür genau aussehen ?
Für Eure Hilfe schon einmal vielen Dank im voraus
Gruß
Thomas. F

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Code für MSGBOX
12.03.2005 21:47:08
Bert
Das geht mit einer MsgBox nicht, weil der Code damit unterbrochen wird.
Bert
AW: Hilfe bei Code für MSGBOX
12.03.2005 21:49:09
Hajo_Zi
Hallo Thomas,
eine MSGBOX würde den Code anhalten solange die MsgBox sichtbar ist.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Hilfe bei Code für MSGBOX
12.03.2005 21:52:38
Thorsten
Hallo Thomas,
eine Idee wäre noch, einfach eine UserForm einblenden zu lassen. Die kann man dann entweder per Button oder nach eingestellter Zeit wieder ausblenden lassen.
Gruß Thorsten
Anzeige
AW: Hilfe bei Code für MSGBOX
12.03.2005 21:58:22
Thom.
Hallo
Danke für die schnelle antworten.
Wie müsste der Code dann für eine Userform mit eingestellter Zeit aussehen ?
Kannst Du mir das noch einmal etwas genauer erläutern ?
Danke schon einmal im vorraus
Gruß
Thomas. F
AW: Hilfe bei Code für MSGBOX
12.03.2005 22:04:48
Ramses
Hallo
wieso "eingestellte zeit" ?
Lass das doch EXCEL machen. Wenn die Datei gespeichert ist, wird die UF doch automatisch geschlossen.
Ansonsten schau mal unter "OnTime" in der VBA-Hilfe.
Gruss Rainer
AW: Hilfe bei Code für MSGBOX
12.03.2005 22:08:20
Thorsten
Da muss ich Rainer recht geben. Ist doch die beste Lösung.
Hajo hat mal was gepostet:
UserForm nach zeit schließen
Sub Start()
Application.OnTime Now + TimeValue("00:00:02"), "Schließen"
UserForm1.Show
End Sub
Sub Schließen()
Unload UserForm1
End Sub
oder

Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2)
Unload Me
End Sub

Gruß Thorsten
Anzeige
Sorry....
12.03.2005 22:11:36
Ramses
Hallo Thorsten
ich hatte nur auf die Mail-Benachrichtigung geklickt, und erst jetzt gesehen, dass er eigentlich auf deinen Beitrag geantwortet hat.
Gruss Rainer
AW: Hilfe bei Code für MSGBOX
12.03.2005 22:44:21
Thomas.
Hallo nochmal
habe nun eine neue UserForm erstellt. Nun noch einmal eine Frage :
bei dem ersten Code von mir handelt es sich ja auch um eine UserForm wo ich einen Dateinamen anlegen muß, ist es möglich die UserForm "Bitte warten" irgendwie in Minimierteter Form darauf mit anzeigen zu lassen ?
Danke nochmals
Gruß
Thomas. F
AW: Hilfe bei Code für MSGBOX
12.03.2005 21:55:26
Ramses
Hallo
Mit MsgBox geht das tatsächlich nicht.
Workaround:
EIne Userform erstellen wo nur der Text "Bitte warten..." drinsteht, und dein Code
Dim fname As String ' Der Dateiname
fname = myPath & IIf(txtFileName = "", "Ohne Name", txtFileName) & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
Unload Me
im "UserForm_Activate()" Ereignis hinterlegt ist.
Die Variable "txtFileName" muss als globale Variable definiert werden
Dann sollte es gehen
Gruss Rainer
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