AW: Meldung von Anfang bis Ende eine Makros
07.04.2011 11:54:37
Anfang
Hi Hajo,
sowei bin ich:
Userform in meine Arbeitsmappe kopiert.
Code angepasst:
Private Sub UserForm_Activate()
DoEvents 'Damit die Userform richtig angezeigt wird.
Call DruckHauptMakro 'Mein Makro
Application.Wait Now + TimeSerial(0, 0, 5)
Me.Hide
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
' damit mit X nicht geschloßen werden kann
If CloseMode = 0 Then
MsgBox "Dies ist ein Hinweisfenster " _
& "das nicht geschlossen werden kann", _
vbCritical
Cancel = 1
End If
End Sub
Und diese Zeile in mein Makro eingefügt: frm_Anzeige.Show vbModeless
Die Infobox wird Angezeigt, ist aber leer und grau (keine Farbe). Nach Ende des Makros schliest sie sich auch leider nicht.
Um deine Hilfe nicht überzubeanspruchen, lese ich mich mal in das Thema UserForm ein.
Vielen Dank für deine Hilfe
Gruß Sebastian