Userform macht startet nicht ???

• Userform macht startet nicht ??? von Andi vom 17.11.2003 17:53:12
  • AW: Userform macht startet nicht ??? - von Tatjana am 17.11.2003 18:01:01
    • Danke dir, aber das ist glaub das falsche - von Andi am 17.11.2003 18:06:56
      • AW: Danke dir, aber das ist glaub das falsche - von andreas e am 17.11.2003 18:16:28
        • schliesst immer noch nicht automatisch, leider - von Andi am 17.11.2003 18:28:54
      • AW: Danke dir, aber das ist glaub das falsche - von Nepumuk am 17.11.2003 18:18:13
        • Ja das passt , großen Dank ... - von Andi am 17.11.2003 18:31:38
          • Noch eine Möglichkeit ... - von Klaus Schubert am 17.11.2003 18:41:34
            • auch dafür vielen Dank, super ...o.T. - von Andi am 18.11.2003 21:40:37

Betrifft: Userform macht startet nicht ???
von: Andi
Geschrieben am: 17.11.2003 17:53:12
Hallo Freunde, ( etwas kenn ich mich aus mit VBA, aber gut wäre vielleicht übertrieben, daher )

brauch bitte eure Hilfe,

Ich hab da mal eine Userform in der Datei eingesetzt nennt sich UserForm1.

Nun möchte ich das in einem Makro dann an einem best. Punkt dann die UserForm1
gezeigt ( gestartet ) wird , 3 sek lang zu sehn ist, und dann wieder schliesst,
und dann die restlichen Anweisungen des Makros vollends erfolgen.

Ich hab mich grad schon durch die Recherche gekämpft, aber alles was ich da finde sagt mir nichts, und meine Versuche div. Vorgaben aus der Recherche zu entnehmen führten noch nicht zum Erfolg.

könnt ihr mir kurz helfen ?

Danke
Andi

Betrifft: AW: Userform macht startet nicht ???
von: Tatjana
Geschrieben am: 17.11.2003 18:01:01
so kannst du die UserForm anzeigen wie man sie allerdings nur 3 Sekunden anzeigt
weiß ich nicht sorry

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Tatjana

Betrifft: Danke dir, aber das ist glaub das falsche
von: Andi
Geschrieben am: 17.11.2003 18:06:56
Danke dir,

aber Workbook oben, da brauch ich die Userform nicht, leider.

Allerdings UserForm1.show funktioniert schon mal, jetzt sollte sie nur noch nach drei sekunden wieder von alleine schliessen,

Wüsste da Jemand nen heissen tipp ?

Danke
Andi

Betrifft: AW: Danke dir, aber das ist glaub das falsche
von: andreas e
Geschrieben am: 17.11.2003 18:16:28
hallo,
hier ein "gekupfertes" Bsp.:

Private Sub Workbook_Open()
Dim WshShell              ' Verweis auf Micsosoft Scripting Runtime setzen
Dim intText As Integer
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Diese ''MsgBox'' wird nach 10 sec geschlossen", _
10, "''MsgBox'' für 10 sec", vbSystemModal)
End Sub

Die Original Beispieldatei findest du Hier: http://www.kmbuss.de/Excel-CD/Beispiel/083.xls

Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen

Betrifft: schliesst immer noch nicht automatisch, leider
von: Andi
Geschrieben am: 17.11.2003 18:28:54
Hallo Andreas, du tschuldige, aber auch dieses Fenster muss man per ok oder oben rechts im Eck schließen.

???

Ich möchte gerne das ganze ganz normal per Button auslösen.

zB:

Sub ... ()
UserForm1.show
'dann 3 sek anzeigen und wieder schliessen
End Sub

Danke Euch allen, schon mal für eure Vorschläge
Andi

Betrifft: AW: Danke dir, aber das ist glaub das falsche
von: Nepumuk
Geschrieben am: 17.11.2003 18:18:13
Hallo Andi,
ein Beispiel:

https://www.herber.de/bbs/user/1996.xls

Gruß
Nepumuk

Betrifft: Ja das passt , großen Dank ...
von: Andi
Geschrieben am: 17.11.2003 18:31:38
Danke an Euch alle

Nepumuks Vorschlag passt am Besten
Gruß
Andi

Betrifft: Noch eine Möglichkeit ...
von: Klaus Schubert
Geschrieben am: 17.11.2003 18:41:34
Hallo Andi ,

hier noch eine Möglichkeit:
Dieses Ereignis in deine UserForm kopieren:

Private Sub UserForm_Activate()
Dim Pausenlänge, Start
Pausenlänge = 3    ' Dauer festlegen.
Start = Timer    ' Anfangszeit setzen.
Do While Timer < Start + Pausenlänge
DoEvents
Loop
Unload Me
End Sub

Gruß Klaus

Betrifft: auch dafür vielen Dank, super ...o.T.
von: Andi
Geschrieben am: 18.11.2003 21:40:37
...

Excel-Beispiele zum Thema " Userform macht startet nicht ???"
Diagramm in Userform	XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen	Fundstellen in UserForm listen
Module und UserForms austauschen	In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen	Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen	Wenn kein Eintrag, UserForm nicht schließen