Application.StatusBar: Jetzt (Zeit) + 45 Minuten?
15.07.2014 16:28:13
Thorben
Moinsen alle,
kann mir kurz einer helfen bitte:
Option Explicit
Public Zeit As Date
Sub AbisAH()
Zeit = Time
Application.StatusBar = "Tabellen werden vorbereitet...Dauer ca.45min...
Der Bildschirm wird jetzt eingefroren! Zeit: " & Format(Time, "hh:mm:ss")
Wie zum Geier bekomme ich zu der "jetzt Zeit" noch 45 Minuten hinzu addiert???Vielen Dank schon einmal
MfG
Thorben