weis mir bitte jemand den CODE um eine UserForm ( UserForm 1 ), kurz anzeigen zu lassen. 2Sekunden lang, und dann wieder von alleine ausblenden.
Vielen Dank im Voraus,
Lieben gruss an alle Helfer, udo
weis mir bitte jemand den CODE um eine UserForm ( UserForm 1 ), kurz anzeigen zu lassen. 2Sekunden lang, und dann wieder von alleine ausblenden.
Vielen Dank im Voraus,
Lieben gruss an alle Helfer, udo
so oder so ähnlich
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2)
Unload Me
End Sub
Gruss
Markus
Sub Autofilter_x()
'ActiveSheet.EnableAutoFilter = True
Range("D9").Select
If Selection = 1 Then
GoTo Filter:
Range("D8").Select
If Selection = 0 Then
UserForm1.Show
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Application.Wait (Now + TimeSerial(0, 0, 2))
'Show UserForm1 = False
GoTo Ende:
Range("A9").Select
ActiveCell.FormulaR1C1 = "2"
'Application.ScreenUpdating = False
Selection.AutoFilter Field:=2, Criteria1:="1"
Range("D9").Select
ActiveCell.FormulaR1C1 = "1"
'Application.Screen Updating = True
GoTo Ende:
Filter:
Range("A9").Select
ActiveCell.FormulaR1C1 = "1"
'Application.ScreenUpdating = False
Selection.AutoFilter Field:=2
Range("D9").Select
ActiveCell.FormulaR1C1 = ""
'Application.Screen Updating = True
Ende:
Range("H12").Select
End Sub