Da eine Routine einige Zeit beansprucht, möchte ich zu beginn ein Fenster (Userform) mit einer Mitteilung "Bitte warten" einblenden - siehe hier:
userform.Show
Tab04.Shapes("sh_Wait").Visible = True
Call SU_Quelle_ProjektTyp_Einlesen
userform.Hide
Tab04.Shapes("sh_Wait").Visible = false
Leider läuft das Makro nicht weiter bis Userform wieder geschlossen wird.
Auch mit Shapes (Bild mit dem Text "warten") wollte ich ein und ausblenden. Doch sobald der Call folgt, wird das Bild nicht mehr eingeblendet.
Hat jemand eine Schlaue Idee - vielen Dank
Pepi