Infopopup ohne ok Bestätig.für Dauer d.Ausführung
28.02.2005 10:20:28
DonFiala
brauche ein Infopopup (MsgBox), das, sobald mein Makro ausgeführt wird, anstatt der Sanduhr solange zu sehen ist, bis das Makro fertig ist und sich dann wieder dezent verdrückt! Da das Makro je nach Auswahl unterschiedlich lang läuft, ist ein festgelegter "Countdown" nicht so ideal! Wer weiss Rat?
Vielen Dank, Gruss michi
Anbei mein Makro:
Sub SpeichernManuell()
ActiveSheet.Copy
ActiveSheet.Unprotect "Password"
HIER DENKE ICH MÜSSTE DAS POPUPREIN!
Dim Zelle As Range
'erste Verknüpfung finden
Set Zelle = Cells.Find(What:="]", LookIn:=xlFormulas)
If Not Zelle Is Nothing Then
Do
Zelle = Zelle.Value
Set Zelle = Cells.FindNext(Zelle)
Loop While Not Zelle Is Nothing
End If
' Speicherprogramm
Dim DName As String, Dateiname As String, Pfad As String
Pfad = Range("U2")
DName = Range("R2")
Dateiname = Pfad & "\" & DName & Format(Range("G7"), "YYYY.MMM") & ".xls"
' Tagesdatum als "Jahr.Monat.Tag" wegen Exploreransicht!
ActiveWorkbook.SaveAs Filename:=Dateiname
MsgBox "Datei wurde erfolgreich unter dem Namen " & ActiveWorkbook.Name & " gespeichert."
ActiveWorkbook.Close
End Sub