Anzeige "bitte warten"
10.07.2008 00:03:48
Domtsgi
ich möchte, dass während dem ausführen des untenstehenden Makro eine Anzeige "bitte warten " erscheint. (Makro natürlich vereinfacht, läuft Total ca. 30sek.)
Ich habe bereits einige Versuche mit Beispielen aus der Recherche gemacht, aber irgendwie packe ich das nicht.
Wer möchte mir mein Makro mit diesem Zusatz "aufmotzen"?
vielen Dank im Voraus
mit freundlichen Grüssen
Domtsgi
Private Sub Worksheet_Deactivate()
On Error GoTo FEHLER
Application.EnableEvents = False
Dim rngZelle As Range
If Cells(2, 254) = 1 Then
For Each rngZelle In Range("f9:f380")
If rngZelle.MergeCells Then
rngZelle(1, 21) = rngZelle.MergeArea.Count
Else
rngZelle(1, 21) = 0
End If
Next rngZelle
Cells(2, 254) = 0
End If
FEHLER:
Application.EnableEvents = True
End Sub