weiß jemand wie die Schleife dazu heisst ? (ich möchte eine Msgbox für 10 Sek. anzeigen lassen, nach den 10 Sek. soll sie automatisch wieder schließen.) wäre nett wenn mir hier jemand helfen könnte,
MfG Mario
Private Sub Worksheet_Activate()
Dim WshShell
Dim intText As Integer
' Verweis auf Micsosoft Scripting Runtime setzen:
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup(WeekdayName(Weekday(Date, vbMonday)) & _
", der " & Day(Date) & ". " & MonthName(Month(Date)) & " " & _
Year(Date) & Chr(13) & Chr(9) & Time, 10, "Systemzeit", vbSystemModal)
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen