Wie macht man das bloss..?
12.08.2002 02:41:49
Uwe W
Habe dieses Macro laufen:
Sub A()
Worksheets("Datenbank").Range("A442:c452").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Worksheets("Menu").Paste Destination:=Worksheets("Menu").Range("D6")
Application.Wait Now + TimeSerial(0, 0, 4)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
nun möchte ich aber das es nicht nach 4 sec verschwindet sondern auf mausklick..oder ähnliches..!!
Gruß Uwe W