Gruppe
Allgemein
Problem
Wie kann ich einen vorgegebenen Bereich aus einer zweiten Tabelle im aktiven Blatt für 2 Sekunden anzeigen lassen?
StandardModule: basMain
Sub Anzeige()
Worksheets("Rang").Range("B2:M16").CopyPicture _
Appearance:=xlScreen, Format:=xlBitmap
With Worksheets("Tabelle1")
.Paste Destination:=.Range("B2")
End With
Application.Wait Now + TimeSerial(0, 0, 2)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub