Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
solange makro läuft uf oder msgbox einblenden
25.08.2005 09:29:52
Sören
hallo leute,
wie kriegt man das hin, dass solange makros bzw. einige prozeduren ablaufen, ein uf oder eine msgbox ("Bitte warten...") eingeblendet wird, das/die sich nach abschluss der makros automatisch schließt?
kann mir jemand helfen?
gruß,
sören

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

Betreff
Datum
Anwender
Anzeige
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 09:36:14
Hajo_Zi
Hallo Sören,
eine MsgBox hält das Makro an. Starte das Makro aus einer Userform, mittels CommandButton.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 09:40:22
Thorsten
Hallo Sören
hast Du schon mal probiert:

Sub test()
userform1.show
'hier jetzt Deine Makroanweisungen rein
userform1.hide
End Sub

Ich weiß nicht, ob's geht.
Bin auch kein Excelprofi.
Kam mir nur gerade so, dieser Gedanke
Mfg
Thorsten
Anzeige
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 09:57:12
Sören
hallo hayo, hallo thorsten,
das sowas mit einer msgbox nicht funzt, hab ich auch grad rausgefunden.
aber werden dann die nachfolgenden makros, die ich dann nach form.show mit call ...
aufführe, auch ausgeführt?
gruß,
sören
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 10:00:27
Bastian
Hallo Sören,
du könntest auch infos in der Statusleiste einblenden. Guck mal hier:
Tipp
Grüße
Bastian
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 10:16:32
Sören
hallo,
guter tipp, aber ich bevorzuge doch ein uf.
die sache von thorsten funzt nicht, denn nach form.show laufen die weiteren makros nicht automatisch weiter.
bei mir sieht das so aus:
nach OK-Button, laufen mehrere makros ab, die ich mit call ... aufrufe.
jetzt möchte ich, da diese einige zeit in anspruch nehmen, das nach OK-button ein uf eingeblendet wird und zeitgleich die anderen makros ablaufen. nach fertigstellung, soll sie das uf wieder schließen.
gruß,
sören
Anzeige
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 10:19:41
Hajo_Zi
Hallo sören,
baue DEinen "OK Button" in eine Userform und starte dort alle Makros.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 10:28:43
sören
hallo hayo,
habe ich doch.
reihenfolge sieht so aus:
1.im uf1 wird ok-button betätigt.
2.uf1 wird geschlossen.
3.call makro 1
4.call makro 2
5.call makro 3
jetzt soll VOR call makro 1 ein uf2 mit "bitte warten..." erscheinen und nach abschluss makro 3 soll es wieder verschwinden.
gruß,
sören
Anzeige
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 10:32:29
Hajo_Zi
Hallo Sören,
hatte ich nicht schon 2x ggeschrieben aus der Userform dasMakro auslösen. Du machste es danach. Ich lehne es ab über das Internet auf fremde Rechner zu schauen.

Sub Ok_Click()
call makro 1
call makro 2
call makro 3
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: solange makro läuft uf oder msgbox einblenden
25.08.2005 11:20:13
Peter
Hallo sören,
was hälst du denn von dieser Variante.(ersatzfortschrittsanzeige)
Habe ich mir mit hilfe dieses Forums mal geschriben.
Private objExplorer As Object

Sub speichernhtml()
Dim FileName$
Dim Farbe1
Dim Farbe2
Dim Farbe3
Dim name
Dim text
Dim datum As Date
FileName = "C:/Dummi" & ".html"
Farbe1 = "#00ffff"
Farbe2 = "#0000ff"
Farbe3 = "#ff0000"
'Farbe2 = "#000000"
name = Application.UserName
Close #1
Open FileName For Output As 1
Print #1, "<html>"
Print #1, "<meta name=""author"" content =""Peter"">"
Print #1, "<meta name=""Date"" content = "; " " & datum; " "; " >"
Print #1, "<meta name=""keywords"" content=""HTML,Meta-Information,Peter's Add-In"">"
Print #1, "<TITLE>Peter.Guttke</TITLE>"
Print #1, "  Angemeldet als:" & "   " & name
Print #1, "<body ; BGColor =  " & Farbe1 & "; text = " & Farbe2 & " > """
Print #1, "<FONT COLOR = " & Farbe3 & " > """
Print #1, "<Font SIZE="" +4"" > "
Print #1, "<marquee>Bitte warten ... </marquee>"
Print #1, "</body></html>"
Close #1
End Sub


Sub öffnenhtml()
'Dim objExplorer As Object
Dim varFile As Variant
Set objExplorer = CreateObject("InternetExplorer.Application")
varFile = "C:\Dummi.html"
With objExplorer
.Navigate varFile
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
'.Resizable = False
.Offline = False
.Width = 280
.Height = 120
End With
End Sub


Sub schliessenhtml()
On Error GoTo ErrorHandler
objExplorer.Quit
Set objExplorer = Nothing
Exit Sub
ErrorHandler:
MsgBox "Sie haben den Explorer schon geschlossen?"
End Sub


Sub löschenhtml()
strPfad = "C:"
sname = "Dummi.html"
Kill strPfad & "\" & sname
End Sub


Sub Start()
Call speichernhtml
Call öffnenhtml
Call hier dein Macro rein
Call schliessenhtml
Call löschenhtml
End Sub

gruss Peter
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige